M-1915 



DDP-ir6/516/H316 
f6rTRAN IVtpMPILER LISTING 

FRTN, t)oL/ No'. 180463000 



(?) 1 969/ HONEYWELL I N'C. , Computer Control Division, Framinghom, Moss. 



c M p u r 6W eblyiTu oi' 

OlVISfffN * ' * 



HONEYWELL 



COMPUTER CONTROL DIVISION 



PROGRAM DOCUMENTATION 



• C210. 001-6601 (FRTN) 



-5C NO, 180463000 (M-915) RfcV. D 



PAGE 



0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0016 
0019 

Qoao 

0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
3037 



C210-001-6601 <FRTN) 3C NOa80463D00 



COMPUTER. DDP-116,516 



PROGRAM CATEGORY- COMPILER 



PROGRAM TITLE. FRTN 

EXPANDED FORTRAN IV COMPILER 
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REV, D 
REV, C 
REV, B 
REV, A 


ECO. .524a 
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ECO 3476 


10-31-66 
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AUTHOR 






HONEYMELl* INC, 


- COMPUTER CONTR 


PURPOSE 







THIS PROGRAM IS DESIGNED TO COMPILE ASA STANDARD FOKTKAN IV 

PROGRAMS IN ONE PASS, GENERATING OPTIMUM OBJECT CODfc HOR TH£ 
DDP-116 OR DDP-516, 



RESTRICTIONS 

MINIMUM 8K CORE STORAGE 



STORAGE 



6682 (DECIMAL) 
15034 <OCTAL) 



USE 



#rORTRAN-IV OPERATING PRQCfcDuRE* 
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0075 
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1. LOAD THE COMPILER SYSTEM TAPE USING STANDARD 'LOAD-MODf 

(DDP-116), OR "PAL-MODE (DDP-516) LOADING Pf^OCEDURES 

2. SET THE (A) REGISTER FOR THE DESIRED INPUT/OUTPUT DEVICE 

SELECTION AS DESCRIBED BELOW, SET CP) TO »l000, SET THfc 
SENSE SWITCHES AS DESCRIBED BELQw, AND PRESS START, 

3. INPUT/OUTPUT DEVICE SELECTION (BITS SET IN (A) ON ENTRY) 

i..t,,,iF SET, Certain error checks are not made, this 

OPTION IS USED WHEN COMPILING THOSE PARTS OF THE 
LIBRARY WRITTEN IN FORTRAN LANGUAGE AND IT ALLOWS THE 
LIBRARY TO TAKE ADVANTAGE OF THE COMPILfcfi'S LOGIC tO 
GENERATE SPECIAL CODING, 

2-7. ...NOT ASSIGNED 

8-10,,, INPUT DEVICE SELECTION 

1 » ASR-33/35 KEYBOARD COR ITS PAPER TAPE READER) 

2 » NCR CARD READER 

3 « DIGITRONICS PAPER TAPE READER 

4 « MAGNETIC TAPE { UNIT 1 ) 
5-7 « (SPARES) 

11-13, ^SYMBOLIC LISTING SELECTION 

0, SUPPRESS ALL SYMBOLIC LISTINGS 

1, ASR»33/35 TYPEWRITER 

2, LINE PRINTER 

3 a ( SPARE ) 

4 « LISTING ON MAGNETIC TAPE UNIT 2 
5^7 « (SPARES) 

14-16,, BINARY OUTPUT SELECTION 

0. SUPPRESS BINARY OUTPUT, 

1. BRPE HIGH SPEED PAPER TAPE PUNCH 

2. ASR BINARY OUTPUT ASR/33 
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3. ASR BINARY OUTPUT ASR/35 
4 « MAGNETIC TAPE OUTPUT 
5.7 (SPARiS) 

4. SENSE SNITCH SETTINGS AND MEANINGS. ...., . 

i EXPAND THE SYMBOLIC LISTING TO INCLUDE 

SIDE-BY-SIDE OCTAL INFORMATION, 

2 INHIBIT SYMBOLIC LISTING (AS LONG AS SSW-1 NOT SbT), 

3 PAUSE BEFORE INPUT OF THE NEXT RECORD. DURING 
THIS PAUSE. THE (A) REGISTER HILL DISPLAY THE CURRENT 

STATUS OF THE I/O KEYBOARD. IT MAY BE 

CHANGED AT THIS TIME IF DESIRED IIFORE RESETTING 

SSW-3 ANOPRESSING start TO CONTINUE. 
4 CAUSe TRAC6 COUPLING INFORMATION TO »6 INCLUDED 

IN THE 0S;)6CT CODING BEING GENERATED REGARDLESS OF 

ANY TRACE STATEMENTS WITHIN THE PROGRAM (OPERATOR 

OVERRIDE). 

5, WHEN BINARY TAPE IS BEING GENERATED! THE COMPILER 

AUTOMATICALUY TURNS ON THE TAPE PJJNCH AND PUNCHES OUT A 
LENGTH OF LEADER. AFTER THE END-OF-JOB IS TYPED. A LENGTH OF 
TRAILER IS PUNCHED BEFORE TURNING OFF THE PUNCH, AND [HE LINE 
PRINTER IS ADVANCED TO THE NEXT PAPER SEAM. PRESS 'START' 
TO PROCESS THE NiXT PROGRAM (BATCH COHPlLlNG). 

FOR ASR BINARY OUTPUT. NO LEADER OR TRAILER IS 

PROVIDED. AND TH^ BINARY PUNCH IS LEFT ON THROUGHOUT 
THE COMPILATION, 



iSt ft fi Wfi w 



THE ERROR MESSAGES OUTPUT BY THIS COMPILER ARE LISTED ON A 
SEPERATE DOCUMENT FOR EASE OF DISTRIBUTION. 

•DATA POOL ENTRY FORMATS* 
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0173 
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0175 
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0177 
0178 
0179 
0180 
0181 
0182 
0183 
0184 
01B5 



THE 



DATA 
1. 



POOL CONSISTS OF FOUR FORMS OF INFORMATION 
THE ASSIGNMENT TABLE CONSISTS OF 5 WORUS, STARTS 
AT THE END OF THE COMPILER AND EXTENDS TOWARD THE 
END OF MEMORY. 

TDCCCCCCCCCCCCCC, , . .DP(A*4) 
CCCCCCCCCCCCCCCC, . . .DP(A*3) 
CCCCCCCCCCCCCCCC, , . .0P( A*2) 
nAAAAAAAAAAAAAA,,,,DP(A«l) 
NRRRMMMLLLLLLLLL,.,.DP(A) 



OR BINARY CONSTANT 



VAR/CONSTANT 
ARRAY 



» CONSTANT 



2, THE DO TABLE 

TABLE AND CONTAINS THE 

A DO-LOOP, EACH ENTRY 

OOIIIIIIItllllll 

OOTTTrTTTTTTTUT 

OOXXXXXXXXXXXXXX 



TRACE TAG 
DATA TAQ 
SIX 8-BIT CHAR. 
ITEM USAGE (lU) 

s NO USAGE 2 

1 « SUBPROGRAM 3 
ASSIGNMENT ADDRESS 
NAME TAG (NT) 
« NAME 1 
ADDRESS TYPE (AT) 

« ABSOLUTE 3 s STRING-RfcL 

1 » RELATIVE 4 « COMMON 

2 « STRING-ABS 5 « DUMMY 
ITEM MODE (IM) 

1 » INTEGER 5 » COMPLEX 

2 « REAL 6 « DOUBLE 

3 > LOGICAL 
4«C0M/EQU LINK 
♦FLOATS* ON TOP OF THE ASSIGNMENT 

INFORMATION NEEDED TO CLOSfc-OuT 
IS 5 «ORDS, 
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0217 
0216 
0219 
0220 
0221 
0222 



oouuuuuuuuuuuuuu 

OONNNNNNNNNNNNNN 

I « INITIAL VALU6/0R RPL 

T • TERMINAL VALUE 

X * INDEX 

U « INCREMENT 

N s STATEMENT NUMBER 

THE EXPRESSION TABLE (AOI TABLE) 'FLOATS* ON 
THE DO TABLE AND CONSISTS OF 2 WORD ENTRIES. 



TOP 



NOOOOOOOO 1 11 1 1 1 1 , , , , , OP ( I *1 > 
OOAAAAAAAAAAAAAAAA , , ,DP( I ) 
N ■ NEGATION INDICATOR 

s OPERATOR 

1 ■ INDEX (OPERATOR LEVEL) 

A 9 ASSIGNMENT TABLE REFERENCE 
THE TRIAD TABLE IS USED TO OPTIMIZE EXPRESSIONS AND 
IS AT THE END Of MEMORY EXTENDINB DOWN TOWARDS THE 
COMPILER. EACH"ENTRY IS THREE WORDS LONG, 

SOO00OOO00PPPPPP,,,.,DP<L*2) 
0011111111111111.... • DP (L^l) 
0022222222222222.,..,DP(L) 

s • TEMP Storage indicator 
p 9 operator 

1 • FIRST OPERAND ADDRESS 

2 > SECOND OPERAND ADDRESS 



ABS 
ORG 



»100 
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0223 

0224 

0225 

0226 

0227 

0228 

0229 

0230 

0231 

0232 

0233 

0234 

0235 

0236 

0237 

0238 

0239 

0240 

0241 

0242 

0243 

0244 

0245 

0246 

0247 

0246 

0249 

0250 

0251 

0252 

0253 

0254 

0255 

0256 

0257 

0258 

0259 



00100 
00101 



00102 
00103 
00104 
00105 
00106 
00107 
00110 
00111 
00112 
00113 
00114 
00115 
00116 
00117 
00120 
00121 



00122 
00123 
00124 
00125 
00126 
00127 
00130 
00131 
00132 
00133 



00134 

0U135 



011101 
015400 



001066 
001251 
001256 
001342 
001355 
001412 
001521 
002354 
002363 
002373 
002404 
002432 
002437 
002443 
002525 
002520 



002547 
002555 
004266 
002567 
002603 
002611 
002617 
002626 
002635 
002574 
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DAC 


A3 




DAC 


DP 


• 






♦ .. 


t • • • • » 1 
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ENTRANCE GROUP 



DAC 
DAC 
DAC 
DAC 
DAC 
DAC 
DAC 
DAC 
DAC 
DAC 
DAC 
DAC 
DAC 
DAC 
DAC 
DAC 



INPUT GROUP 



ICOO 
UCOO 
CHOO 
IDOO 
lAOO 
FNOO 
DNOO 

noo 

OPOO 
NAOO 
IGOO 
IVOO 
IROO 
ISOO 
XNOO 
SYOO 



TEST GROUP 



003241 
003465 



DAC 
DAC 
DAC 
DAC 
DAC 
DAC 
DAC 
DAC 
DAC 
DAC 



DAC 

DAC 



TSOO 
IPOO 
Al 

ai 

NUOO 
NCOO 
NSOO 
ATOO 
ITOO 
NROO 

....ASSIGNMENT 

ASOO 

TGOO 



(fci'>iGl) 



(IPQl) 

(IPG2) 

(IPQ3) 

(IPQ4) 

(IPG5) 

(IPG6) 

<IPG7) 

(IPG8) 

(IPU9) 

<IPG10) 

(IPGll) 

{IPG12) 

CIPCS13) 

(IPG14) 

(IPG15) 



(TSGl) 
(TSQ2) 
(TSQ3) 
(TSG4) 
aSQ5) 
(TSQ6) 
{TSG7) 
(TSGd) 
CTSQ9) 
(TSGIO) 

GROUP 

(ASQl) 
(ASG2) 



COMPILER ENTRANCE/INITIALIZE 
DATA POOL START 



Input couumn 
uninput column 
input character 
input digit 
input (a) characters 
finish operator 
input dna 
input item 
input operand 

INPUT NAME 
INPUT INTEGER 
INPUT INTEGER 
INPUT INTEGER 
INPUT STATEMENT NUMBER 
EXAMINE NEXT CHARACTER 
INPUT SYMBOL 



VARIA8LE/C0NSTANT 
VARIABLE 



ALl CHARACTER TEST (EXCEPT C/R) 

)-INPUT OPERATOR 

C/R TEST 

» OR C/R TEST 

NO USAGE TEST 

NON CONSTANT TEST 

NON SUBPROGRAM TEST 

ARRAY TEST 

INTEGER TEST 

NON REL TEST 



ASSIG^vj ITEM 
TAG SUBPROGRAM 
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0224 

0225 

0226 

0227 

0228 

0229 

0230 

0231 

0232 

P233 

0234 

0235 

0236 

0237 

0238 

0239 

0240 

0241 

0242 

0243 

0244 

0245 

U246 

0247 

0246 

0249 

0250 

0291 

0^52 

0253 

0254 

0255 

0256 

0257 

0298 

0259 
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0260 00136 


003642 


DAC 


TVOO 


0261 00137 


003656 


DAC 


FAOO 


0262 00140 


003770 


DAC 


FLOO 


0263 00141 


004005 


DAC 


KTOO 


0264 00142 


004026 


DAC 


DHOO 


0265 00143 


004041 


DAC 


DAOO 


0266 00144 


004214 


DAC 


AFOO 


0267 00145 


004233 


DAC 


lOOO 


0268 00146 


004241 


DAC 


AIOO 


0269 00147 


004252 


DAC 


AAOO 


0270 00150 


004062 


DAC 


NXT 


0271 00151 


004142 


DAC 


BUD 


0272 




• 




0273 
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CONTROI 


0274 00152 


004262 


DAC 


B6 


0275 00153 


004264 


DAC 


C5 


0276 00154 


004271 


DAC 


C6 


0277 00155 


004353 


DAC 


C7 


0276 00156 


004456 


DAC 


C6 


0279 00157 


004602 


DAC 


A9 


0280 00160 


005074 


DAC 


NPOO 


0261 




• 




0282 




* 1 • • t « « * f 1 


SPECIF 


0263 00161 


010624 


DAC 


ELOO 


0264 00162 


010650 


DAC 


NMOO 


0285 00163 


010657 


DAC 


NOOO 


0266 00164 


010672 


DAC 


SCOO 


0287 00165 


010761 


DAC 


ILOO 


0266 00166 


011042 


DAC 


Rl 


0269 00167 


011044 


DAC 


R2 


0290 00170 


011101 


DAC 


A3 


0291 00171 


011103 


DAC 


A4 


0292 00172 


011105 


DAC 


A5 


0293 00173 


011107 


DAC 


A6 


0294 00174 


011111 


DAC 


A7 


0295 00175 


011145 


DAC 


82 


0296 00176 


011154 


DAC 


B3 



3C NU, 180463000 



REV 



PAGE 



GROUP 



(ASG3) 

(ASQ4) 

(ASG5) 

(ASG6) 

(ASG7) 

{AS&8} 

(ASG9} 

(ASGIO) 

(AS611) 

(AS012) 



(CNGl) 

(CNG2) 
(CN63} 
(CN(i4) 
(CNG5) 
(CNQ6) 

i GROUP 
(SPQl) 
(SPQ2) 
(SPi3} 
(SPQ4) 
(SP65) 
(SPG^) 

(SP67) 



TAG VARIABLE 

FETCH ASSIGN 

FETCH LINK 

D(0)« SIZE OF ARRAY DEFLECTiO^ 

DEFINE IH 

DEFINE AF 

DEFINE AFT 

DEFINE LOCATION 

ASSIGN INTEGER CONSTANT 

ASSIGN SPECIAL 

GET NEXT ENTRY FROM ASSGN TABLk 

BUILD ASSIGNMENT TABLE ENTRY 



JUMP 

ILL TERM 

CONTINUE 

STATEMENT 

STATEMENT 

STATEMENT 



INPUT 

SCAN 

IDENTIFICATION 



FIRST NON-SPEC CHfeCK 



EXCHANGE LINKS 
NON COMHON TfST 

non dummy or subprogkam test 

input subscript 

input list element 

function 

Subroutine 

INTEGER 

real 

DOUBLE precision 

COMPLEX 

LOGICAL 



(SPG9) DIMENSION 



0260 

0261 

0262 

0263 

0264 

0265 

0266 

0267 

ua66 

0269 

0270 

0271 

0272 

02^3 

0274 

0275 

0276 

0277 

0278 

279 

0280 

0261 

0282 

0263 

0264 

0265 

0266 

267 

U268 

0239 

0290 

0291 

0293 
0294 
29;^ 
0296 
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0297 00177 





011246 


DAC 


87 




INPUT DIHENSION 


029a 00200 





011253 


DAC 


84 


(SPGIU) 


COMMON 


0299 00201 





011335 


DAC 


85 


(SPGll) 


EQUIVALENCE 


0300 00202 





011375 


DAC 


C2 


(SPG12) 


RELATE COMMON ITEMS 


0301 00203 





011442 


DAC 


C3 


(SPai3) 


GROUP EQUIVALENCE 


0302 00204 





011715 


DAC 


C4 


(SPG14) 


ASSIGN SPECIFICATIONS 


0303 00205 





011762 


DAC 


W4 


(SPG15) 


DATA 


0304 00206 





012303 


DAC 


R3 


(SPQ16) 


Block data 


0305 00207 





012313 


DAC 


TRAC 


(SPG17) 


TRACE 


0306 






• 








0307 






*(»f*t*it 


PROCESSOR 


GROUP 




0308 00210 





005210 


DAC 


V3 


(PRGl) 


IF 


0309 00211 





005334 


DAC 


R7 


(PRG2) 


GO TO 


0310 00212 





005414 


DAC 


IBOO 




INPUT BRANCH LIST 


0311 00213 





005443 


DAC 


W3 


(PRG3) 


ASSIGN 


0312 00214 





005510 


DAC 


C9 


(PRG5) 


DO 


0313 00215 





005533 


DAC 


V7 


(PRG6) 


END FILE 


0314 00216 





005526 


DAC 


V6 




BACKSPACE 


0315 00217 





005535 


DAC 


V8 




REWIND 


0316 00220 





005543 


DAC 


V5 


(PRQ7) 


READ 


0317 00221 





005352 


DAC 


V4 




WRITE 


0318 00222 





005771 


DAC 


V2 


(PRG8) 


FORMAT 


0319 00223 





006160 


DAC 


SIOO 




INPUT FORMAT STRING 


0320 00224 





006153 


DAC 


INOO 




INPUT NUMERIC FORMAT STRIN 


0321 00225 





006145 


DAC 


NZOO 




NON ZERO STRING TEST 


0322 00226 





006274 


DAC 


W8 


(PR09) 


Pause 


0323 00227 





006233 


DAC 


W7 




STOP 


0324 00230 





006301 


DAC 


R6 


(PRQIO) 


CALL 


0325 00231 





006321 


DAC 


G2 




ASSIGNMENT STATEMENT 


0326 00232 





006330 


DAC 


R9 


(PRGll) 


RETURN 


0327 00233 





006367 


DAC 


Gi 


(PRG12) 


STATEMENT FUNCTION 


0328 00234 





006444 


DAC 


w5 


(PRG13) 


END 


0329 






• 








0330 






* • • » f * f • • • 


. . . t .PROCESSOR 


SUBROUTINES 


GROUP 


0331 00235 





006660 


DAC 


POOU 


(PSGl) 


Input char anu output pack 


0332 00236 





006664 


DAC 


HSUO 


(PSCi2) 


TRANSMIT HOLLERITH STHlNG 


0333 00237 





006702 


DAC 


DPOO 


(PSU3) 


DO IiHiPUT 



U297 

0298 

U299 

0300 

0301 

0302 

0303 

0304 

0305 

0306 

0307 

0306 

0309 

0310 

0311 

0312 

0313 

0314 

0315 

0316 

0317 

U318 

0319 

0320 

0321 

0322 

0323 

0324 

0325 

0326 

0327 

0328 

0329 

0330 

0331 

0332 

0333 
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0334 
0335 
0336 
0337 
0338 
0339 
0340 
0341 
0342 
0343 
0344 
0345 
0346 
0347 
0346 
0349 
0350 
0351 
0352 
0353 
0354 
0355 
0356 
0357 
0358 
0359 
0360 
0361 
0362 
0363 
0364 
0365 
0366 
0367 
0368 
0369 
0370 



00240 
00241 
00242 
00243 
00244 
00245 
00246 
00247 



00250 
00251 
00252 
00253 
00254 
00255 
00256 
00257 
00260 
00261 
00262 
00263 
00264 
00 265 
00266 



00267 
00270 
00271 
00272 
002^3 
00274 
00275 
00276 
00277 
00300 



006747 
006773 
007041 
010040 
010335 
010404 
010436 
010525 



012330 
012337 
012363 
012437 
012467 
012700 
013147 
013773 
014127 
014135 
014365 
014465 
014523 
013663 
014301 



002653 
002703 
002672 
002676 
002722 
002741 
002754 
002764 
003007 
003016 



DAC 
OAC 
DAC 
DAC 
DAC 
DAC 
DAC 
DAC 



DSGO 
DQOO 
EXOO 
CAOO 
STOO 
TCOO 
ETOO 
QiOO 



DAC 
DAC 
DAC 
DAC 
DAC 
DAC 
DAC 
DAC 
DAC 
DAC 
DAC 
DAC 
DAC 
DAC 
DAC 



DAC 
DAC 
DAC 
DAC 
DAC 
DAC 
DAC 
DAC 
DAC 
DAC 



....OUTPUT GROUP 

ouoo 

0100 
CNQO 
OKOO 
OBQO 
OTOO 
OHOO 
OROO 
OAOO 
OSOO 
OHOO 
PUOO 

rsoo 

TRSE 
PRSP 



MISC. GROUP 



AD3 

IHOO 

STXA 

STXI 

NfOO 

BUNK 

MbV3 

CIB 

SAV 

R5T 



(PSG4; DO INITIALIZE 
(PSQ5) DO TERMINATION 
(PSG6} EXPRESSION 
(PSG7) SCAN 

TRIAD SEARCH 

TEMP STO«E CHECK 
(PS08) ENTER TRIAD 
(PSQ9) GENERATE SUBPROGRAM bNTRANCt 



(OPQl) OUTPUT OBJECT LINK 

(OPGi) OUTPUT I/O LINK 
(0Pa3) CALL NAME 

(0PQ4) OUTPUT PACK 

<0PQ5) OUTPUT OA 

{0Pfi6) OUTPUT TRIADS 

(0P67) OUTPUT ITEM 

(0P08) OUTPUT R6L 

OUTPUT AIS 

OUTPUT STRING 

(0PG9) OUTPUT WORD 

PICKUP 
(OPGIO) FLUSH 

(OPGll) OUTPUT TRACE COUPLING 

SET BUFfER TO SPACfeS 



ADD Two 3 WORD INTEGERS 

MULTIPLY (A) BY (§) 

SET A INTO INDEX 

SET I INTO INDEX 

SET FS INTO NAMF 

SET AREA TO ZEROS 

MOVE 3 WORDS TO TEMP STORAGE 

COMPARE IBUF TO A CONSTANT 

SAVE INDEX IN PUSH»DOWN STACK 

kESET index FRO" PUSn- 



Q334 
0335 
0336 
0337 
0336 
0339 
0340 
0341 
0342 
0343 
0344 
0345 
0346 
0347 
0346 
0349 
0350 
0351 
0352 
0393 
0354 
0355 
0356 
0357 
0396 
0399 
0360 
0361 
0362 
0363 
0364 
0365 
0366 
0367 
0366 
0369 
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0371 00301 003055 DAC PACK 



0375 QQ305 003227 DAC LIST 

0376 * 

0377 # 

0376 • •••••••••••«•«•••••«••••««#• 

0379 
0380 
03dl • 



0387 000042 C EQU k*2 

0388 000043 ASAV EQU A«3 

0389 000044 L EQU A^4 



0393 000050 SXF EQU A*8 POSSIBLE CPX FLAG 

0394 000051 SPF EQU A*9 PEC, FLAG 

0395 000052 TCF EQU A*iO T6HP STORE COUNT 

0396 000053 irr EQU A*U 



0371 



0372 00302 003116 DAC EROO ERROR OUTPUT 0372 

0373 00303 003157 DAC SRT SHIFT RIGHT 1 (TRIPLE PRES.) 0373 
^Alt ?9??f ? 9????! °*C S^T SHIFT LBfJ 1 (tHlPLb PRES.) 0374 

0376 

0377 
0378 

5379 » •CONSTANT AND VARIABLE POOL* 0379 

0380 
0381 

0382 000000 XR EQU INDEX REGISTER 0382 

0383 # THE FOLLOWING 62 VARIABLES ARE SET TO ZERO DURING 

0384 « PROGRAM INITIALIZATION 

0385 000040 A EQU MO ASSIGNMENT TABLE INDEX 



0383 

0384 

- _ _«_ , 0383 

0386 000041 I EQU A*l EXPRESSION TABLE INDEX 0386 



0387 
0398 
0389 



0390 000045 MFL EQU A*5 MODE FLAG 0390 

0391 000046 SFF EQU A*6 FUNCTION FLAG 0391 
n??? ?9°?5? !^! ^^^ ^*^ SUBFUNCTION FLAG 0392 

0393 
0394 
0395 
0396 
0397 000054 ABAR EQU A*12 BASE OF ASSIGN TABLE 0397 



0398 000055 XST EQU A*13 FIRST EXECUTABLE STMNT. 0398 

0399 000056 CFL EQU A*l4 MON FLAG 0399 

0400 000057 D EQU A+15 DO INDEX 0400 
0^01 000060 RPL EQU A+16 RELATE PROGRAM LOCATION 04Q1 

0402 000061 BDF EQU A*17 LOCK DATA FLAG 0402 

0403 000062 SLST EQU A*i8 SOURCE LIST 0403 
0^04 000063 OBLS EQU A*19 OUTPUT BINARY LIST 0404 
0405 000064 BNOT EQU A*20 BINARY OUTPUT FLAG U405 
0^06 000065 TRF EQU A+21 TRACE FLAG <EnD TRACE STATfcMfcNT NO. ) 0^06 
0407 000066 TRFA EQU A*22 PUINTt^ TO FIRST VAW, OH ARRAY NAME ]. 0407 
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0406 




• 






0409 


000067 


SOF 


EQU 


A«23 


0410 


000070 


LIF 


EQU 


A^24 


0411 


000071 


LSTN 


EQU 


A^29 


0412 


000072 


USTF 


EQU 


A*26 


0413 


000073 


LSTP 


EQU 


A*27 


0414 


000074 


sosw 


EQU 


A^26 


0419 




• 






0416 


000970 


NAMF 


EQU 


»970 


0417 


000971 


NO 


EQU 


NAMF*1 


0416 


000972 


NS 


EQU 


»972 


0419 


000973 


NT 


EQU 


NS«1 


0420 


000974 


NtF 


EQU 


NS*2 


0421 


000979 


NTID 


EQU 


NS*3 


0422 


00Q976 


01 


EQU 


NS«4 


0423 


000977 


02 


EQU 


NS*9 


0424 


000600 


P 


EQU 


NS«6 


0429 


000601 


PCNT 


EQU 


NS*7 


0426 


000602 


OCNT 


EQU 


NS«8 


0427 


000603 


SO 


EQU 


NS«9 


0428 


000604 


SI 


EQU 


NS^IO 


0429 


000609 


S2 


SOU 


N$#ll 


0430 


000606 


S3 


EQU 


N$«12 


0431 


000607 


TC 


EQU 


NStl3 


0432 


000610 


TT 


EQU 


N$414 


0433 


000611 


TYPE 


EQU 


NS*19 


0434 


000612 


X 


EQU 


NS*16 


0435 


000613 


XI 


EQU 


NS*17 


0436 


000614 


X2 


EQU 


NS^18 


0437 


000619 


X3 


EQU 


NS*19 


0438 


000616 


X4 


EQU 


NS«20 


0439 


000617 


NTA 


EQU 


NS421 


0440 


000620 


AtA 


EQU 


NS«22 


0441 


000621 


IHA 


EQU 


NS*23 


0442 


000622 


CUA 


EQU 


NS*24 


0443 


000623 


lUA 


EQU 


NS*25 


0444 


000624 


DTA 


EQU 


NS*26 



AN EXPRESSION (FOR 
SUBSCRIPT CONSTANT 
LOGICAL IF FLAQ 
LASt STATEMENT NO. 
LAST StATEHENT FLAQ 
LAST STATEMENT STOP 
STATEMENT 10 SWITCH 

NAMi: FUNCTION 
NO or OIHgNSIONS 
NO OF SUBSCRIPTS 

N A^6 T A Q 

NAME TAQ FLAG 
NO. WORDS IN TID 
OPERATOR 1 
OPERATOR 2 



OUTPUT COUNT 

SUBSCRIPT NO.l 
SUBSC^RIPT NO. 2 
SUBSCRIPT NO, 3 
TERMINAL CHAR 



ARRAY INDICES 



USE BY TRACk). 
FLAG (N0n<*ZERO 



IF SET) 



UNPACKED ASSIGNMENT ITEMS 



04U6 
0409 
041Q 
0411 
0412 
04i3 
0414 
0419 
0416 
0417 
0418 
0419 
0420 
0421 
0422 
0423 
0424 
0429 
0426 
0427 
0428 
0429 
0430 
0431 
0432 
04^3 
U434 
0439 
0436 
0437 
0438 
0439 

0440 
0441 
0442 
0443 
0444 
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0445 000625 TTA EQU NS*27 0445 

0446 • ADJUST THIS ORG IF THt SIZE OF THE CONSTANT POOL IS MODIFIED 1)446 

0447 ORG '630 0447 

0448 00630 00 00000 AF PZE ADDRESS FIELD 0448 

0449 000630 QF EQU AF 0449 

0450 0063i 00 00000 AT PZE O" ADDRESS TYPE 0450 

0451 00632 00 00000 CODE PZE OUTPUT CODE 0451 

0452 00633 00 00000 DO PZE DIMENSIONS 0452 

0453 00634 00 00000 Dl PZE 0453 

0454 00635 00 OOQOO D2 PZE 0454 

0455 00636 00 00000 03 PZE 0455 

0456 00637 00 00000 04 PZE 0456 

0457 00640 00 00000 OF PZE DATA FLAG 0457 

0458 00641 00 00000 NF PZE 0458 

0459 00642 00 00000 B PZE 0459 

0460 00643 00 00000 DFU PZE DELIMITER FLAG 0460 

0461 00644 000000 E OCT EQUIVALENCE INDEX 0461 

0462 00645 00 00000 EP PZ6 E-PRIME 0462 

0463 00646 00 00000 EO PZE E-ZERO 0463 

0464 00647 00 00000 FTOP PZE OUTf^UT COMMAND 0464 

0465 00650 00 00000 GFA PZE 0465 

0466 00651 00 00001 ICSW PZE X INPUT CONTROL SWITCH 0466 

0467 00652 00 00000 IFLG PZE I-FLA6 0467 
0466 00653 00 00000 IM PZE ITEM MODE 0466 

0469 00654 00 00000 lOF PZE 1*0 FLAG 0469 

0470 00655 00 00000 lU PZB ITEM USAGE 0470 

0471 00656 00 00000 KBAR PZE TEM STORE 0471 

0472 00657 00 00000 KPRM PZE TEM STORE 0472 

0473 00660 177777 E8AR OCT -1 E-BAR 0473 

0474 00661 000017 DO OCT 17 DO TABLE INDEX<FLOATS ABOVt ASSIGNMENT) 0474 

0475 00662 00 00111 CC PZE Ull CARD COLUMN COUNTER ' 0475 

0476 00663 00 00000 OCT PZE DUMMY ARGUMENT COUNT 04^6 

0477 00664 00 00000 F PZE TRIAD TABLE INDEX 0477 

0478 00665 00 00000 CL PZE ASSIGNMENT ITEMS UNPACKkD 0478 

0479 00666 00 00000 DT PZE 0479 

0480 00667 00 00000 FLTl PZE FETCH LINK CL POINTER LOCATIUN 0480 

0481 00670 00 O'JOOU LIBF PZE SPECIAL LIBRARY FLAG (N0N°2tHJ IF Set) U481 
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0482 


00671 


000291 


•i . t 




1 tCONSTA 


0483 


K4 


OCT 


251 


0484 


00672 


000254 


K5 


OCT 


294 


0489 


00673 


000240 


K8 


OCT 


240 


0466 


00674 


000257 


K9 


OCT 


297 


0487 


00675 


000256 


KIO 


OCT 


296 


0488 


00676 


000255 


Ki2 


OCT 


299 


0489 


00677 


000253 


K13 


OCT 


293 


0490 


00700 


000244 


Ki9 


OCT 


244 


0491 


00701 


000016 


K16X 


OCT 


16 


0492 


00702 


000290 


K17 


OCT 


290 


0493 


00703 


000275 


Kie 


OCT 


279 


0494 


00704 


142317 


K19 


BCI 


IfOO 


0495 


00709 


000324 


K34 


OCT 


324 


0496 


00706 


000317 


K35 


OCT 


317 


0497 


00707 


193716 


K40 


BC! 


1»WN 


0496 


00710 


191316 


K41 


BCI 


1*RN 


0499 


00711 


141702 


K42 


BCI 


1*CB 


0900 


00712 


000311 


K43 


OCT 


311 


0501 


00713 


000321 


K44 


OCT 


321 


0502 




000709 


K45 


EQU 


K34 


0903 


00714 


000292 


K97 


OCT 


292 


0504 


00715 


000260 


K60 


OCT 


260 


0505 


00716 


000271 


K61 


OCT 


271 


0506 




000704 


K6I 


EQU 


K19 


0507 


00717 


000001 


KlOl 


OCT 


I 


0906 


00720 


000002 


K102 


OCT 


2 


0509 


00721 


000003 


K103 


OCT 


3 


0510 


00722 


000004 


K104 


OCT 


4 


0511 


00723 


000009 


K105 


OCT 


9 


0512 


00724 


000006 


K106 


OCT 


6 


0513 


00725 


000007 


K107 


OCT 


7 


0514 


00726 


000020 


K109 


DEC 


16 


0519 


00727 


000377 


KlOO 


OCT 


377 


0516 


0073d 


037777 


Kill 


OCT 


37777 


0517 


00731 


177797 


KllO 


DEC 


-17 


0518 


00732 


170777 


K115 


OCT 


170777 



CONSTANTS USED BY THE COMPILER 

0) 
0* 

0-SPACE 
0/ 
0. 
0- 
0* 
OS 



0( 
Os 

DO 
OT 
00 

RN 

01 

00 

OT 

0* 

00 (BCI ZERO) 

09 



0482 
0483 
0484 
0485 
0486 
0487 
0488 
0489 
0490 
0491 
0492 
0493 
0494 
0499 
0496 
0497 
0498 
0499 
0500 
0$01 
0502 
0903 
0504 
0505 
0906 
0507 
0906 
0509 
0910 
0911 
0912 
0913 
0514 
0519 
U516 
0917 
0518 
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0519 00733 177400 K116 OCT 17740U 

0520 00734 177745 K117 DEC -27 



0519 
0520 
0521 

0523 00737 177761 K120 DEC -15 nlH 



0521 00735 000777 K118 OCT 777 

0522 00736 177000 K119 OCT 177000 



0524 00740 040000 KX22 OCT 040000 

0525 00741 177777 K123 DEC -1 

0526 00742 000011 K124 DEC 9 

0527 00743 000010 K125 DEC 8 

0528 00744 000012 K126 DEC 10 



0530 00746 000014 K128 DEC 12 

0531 00747 000015 K129 DEC 13 

0532 00750 177762 Kl3l DEC -14 



0533 00751 000022 K132 OCT 22 

0534 00752 000017 K134 OCT 17 

0535 00753 024002 Ki37 OCT 24002 

0536 00754 000025 K138 OCT 25 

0537 00755 000024 K139 OCT 24 

0538 00756 000215 CRET OCT 2i5 C/R 

0539 00757 000000 ZERO OCT 



0543 00763 000340 HC2 OCT 340 

0544 00764 000357 K357 OCT 357 

0545 • 

0546 • 



0523 
0524 
Q$25 
0526 
0527 
0528 



0529 00745 000013 K127 DEC 11 0^29 

0531 



0532 
0533 
0534 
0535 
0536 
0537 
0538 
Q539 



0540 00760 140000 MBIT OCT 140000 HIGH BITS FOR ALPHA DATA 0540 

0541 00761 142721 KAEQ BCI 1,EQ EQUIVAtENCE ERROR MESSAGE ATTACHMENT 0541 

0542 00762 177776 MIN2 DEC -2 -2 0542 

0543 

0544 
0545 
0546 
0547 



0547 015400 DP EQU »15400 DUMMY START OF UATA POOL (ACTUALLY SET 

S^jS „ . , * BY THE FORTRAN lOS SUBROUTINE,) 0548 

^Izt 000113 LO EQU '113 DUMMY END OF DATA POOL (MINUS 3 WORDS) 0549 

J550 • THE FOLLOWING INSTRUCTIONS CAUSE THE LOADER 0550 

J551 • TO ASSIGN ALL REFERENCES TO THE DATA POOL IN WORDS 0551 

0552 • 100 TO 112 OF THb ZERO SECTOR, FORTRAN lOS WILL 0552 

"553 • CAUSE THESE CELLS TO BE SET TO THE ACTUAL DATA POOL 0553 

0554 • LOCATIONS WHICH WILL Bt UETERMInED BY COMPUTfcR 0554 

(^^55 » CONFIGURATION, U555 
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0556 

0557 

0558 

0559 

0560 

0561 

0562 

0563 

0564 

0565 

0566 

0567 

0563 

0569 

0570 

0571 

0572 

0573 

0574 

0575 

0576 

0577 

0578 

0579 

0580 

0581 

0582 

0583 

0584 

0585 

0586 

0587 

0588 

0589 

0590 

0591 

0592 



01000 
01001 
01002 
01003 
01004 
01005 
01006 
01007 
01010 
01011 
01012 
01013 



00001 
00002 



01000 
01001 
01002 
01003 
01004 
01005 



1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 




00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 



15374 
15375 
15376 
153^7 
15400 
15401 
15402 
15403 
15404 
15405 
15406 
15407 



10 03116 
141707 



0400 61 

04 00670 

0410 61 

Q 10 00000 AO 

02 01153 

04 00662 



ORG 
PZE 
PZE 
PZE 
PZE 
PZE 
PZE 
PZE 
PZE 
PZE 
PZE 
PZE 
PZE 



ORG 
JST 
BCI 



ORG 



LRU 

STA 

LLL 

CAUL 

IDA 

STA 



*1000 

DP-4,1 

DP-3,1 

DP-2,1 

DP-l,! 

DPa 

DP*lil 

DP*2il 

DP*3,1 

DP*4,1 

DP*5,1 

DP*6,1 

DP*7 



1 

EPOO 

ItCG 



DATA POOL REFERENCES 



(100) 
(101) 
(102) 
(103) 
(104) 
(105) 
(106) 
(107) 
(110) 
(111) 
(112) 
(113) NO WDS IN DATA POOU SET BY lOS 



THIS INSTRUCTION REACHED ONUY IF THE 
COMPILER JUMPED TO ZERO BY MISTAKE. 



•START OF COMPILER* 



1000 



AO 
15 

LIBF 
15 

r4SINT 

K108 

CC 



COMP ENT EMPTY BUFFERS 



SET SPECIAL LIBRARY FLAG 

(BIT 1 ON INHIBITS CERTAIN ERROR CHECKS) 

INITIALIZE I/O DEVICES 



CC 



73 



0556 

0557 

U558 

0559 

0560 

0561 

0562 

0563 

0964 

0569 

0566 

0567 

0668 

0569 

0570 

0571 

0572 

0573 

0574 

0575 

0576 

0577 

0578 

0579 

0910 

0991 

0582 

0583 

0584 

0585 

0586 

0587 

0588 

0569 

0590 

0991 

0592 
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0593 


01006 


10 


01066 


JST 


ICOO 


0594 


01007 


02 


01063 


A051 LDA 


A090 


0595 


01010 


04 


aoudo 


STA 


XR 


0596 


OlQll 


02 


01065 


LOA 


A092 


0597 


01012 


04 


03030 


STA 


SAV9 


0598 


01013 


140040 


CRA 




0599 


01014 


1 04 


00076 


STA 


A*H,1 


0600 


01015 


1 04 


00626 


STA 


NAHr*H#l 


0601 


01016 


12 


00000 


IRS 


XR 


0602 


01017 


01 


01014 


JMP 


#.3 


06Q3 


01020 


04 


00652 


STA 


IFLG 


0604 


01021 


04 


12435 


STA 


PKF 


0605 


01022 


10 


14523 


JST 


rsdo 


0606 


01023 


140401 


CMA 




0607 


01024 


04 


00072 


STA 


LSTF 


0606 


01025 


04 


00073 


STA 


LStP 


0609 


01026 


04 


00660 


STA 


E6AR 


0610 


01027 


02 


00113 


LOA 


LO 


0611 


01030 


04 


00651 


STA 


ICSW 


0612 


01031 


04 


00646 


STA 


EO 


0613 


01032 


04 


00044 


STA 


L 


0614 


01033 


10 


14301 


JST 


PRSP 


0615 


01034 


02 


00752 


LDA 


K134 


0616 


01035 


04 


00661 


STA 


DO 


0617 


01036 


07 


00754 


SUB 


K138 


0618 


01037 


04 


01064 


STA 


Ad9l 


Q619 


01040 


140040 


CRA 




0620 


01041 


04 


01475 


STA 


ID 


0621 


01042 


12 


01475 


A055 IRS 


ID 


0622 


01043 


10 


04241 


JST 


AIOO 


0623 


01044 


12 


01064 


IRS 


A091 


0624 


01045 


01 


01042 


JMP 


A055 


0625 


01046 


02 


02731 


LDA 


K81 


U626 


01047 


U4 


01475 


STA 


ID 


0627 


01050 


04 


01476 


STA 


ID + 1 


062b 


01051 


04 


01477 


STA 


ID + 2 


0629 


Q10&2 


140040 


CRA 





INPUT COLUMN 



Loc, OF Index push-down buffeh 

INITIALIZE PUSH-DOWN BUFR, 
SfcT H VARIA&LfcS TO ZERO 



INITIALIZE OUTPUT BUFFER 

LSTF NOT EQ 
LSTP NOT EQ 
6BAR SET NEGATIVE 



INITIALIZE EQUIVALENCE TABLfc 
INITIALIZE TRIAD TABLE POINTER 
SET PRINT BUFFER TO SPACES 

INITIALIZE DO TABLE POINTER 



ESTABLISH CONSTANTS 



0593 

0594 

U595 

0596 

0597 

0598 

0599 

0600 

0601 

0602 

0603 

0604 

0605 

0606 

0607 

0608 

0609 

0610 

0611 

0612 

0613 

0614 

0615 

Q616 

0617 

0618 

0619 

0620 

0621 

0622 

0623 

0624 

0625 

0626 

0627 

0628 

0629 
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0630 

0631 

0632 

0633 

0634 

0635 

0636 

0637 

0638 

0639 

0640 

0641 

0642 

0643 

0644 

0645 

0646 

0647 

0648 

0649 

0650 

0651 

0652 

0653 

0654 

0655 

0656 

0657 

0658 

0659 

0660 

0661 

0662 

0663 

0664 

0665 

0666 



01053 
01054 
01055 
01056 
01057 
01060 
01061 
01062 

01063 
01064 
01065 



01066 
01067 
01070 
01071 
01072 
01073 
01074 
01075 
01076 
01077 
OllOO 
01101 



0400 40 LRL 
02 00717 LDA 
10 04252 JST 
10 02672 JST 
04 00056 STA 

06 00740 ADO 

1 04 15401 STA 
01 04353 JHP 
000036 M EQU 

.1 177742 A090 DAC» 

00 00000 A091 PZE 

003091 A092 OAC 



000000 
10 03007 
02 00662 
07 01153 

100040 

01 01125 

02 00651 

101040 

01 01141 



tCOO OAC 
JST 
LDA 
SUB 
SZE 
JMP 

ICIO LDA 
SNZ 
JMP 



32 

KlOl 
AAOO 
STXA 

crL 

K122 

Dl**l#l 

C7 

30 

•M,l 

SAVX 



•INPUT COLUMN* 



(B}sO IMsNO USAGE 
(A)«l IU«SUBR 
ASSIGN (SPECIAL) 
SET POINTER A INTO 
CFL»A (LOCATION OF 
"'40000 (IU"SUBR) 
QF(A}sA (IN CASE NO 
GO TO STMNT INPUT 



INDEX AND (A) 
FIRST COMMON BLOCK) 

BLANK COMMON IS SPECIFI 



START OF INDEX PUSH^DOWN BUFFER 



INPUT NEXT CHARACTER 
IGNORE BLANKS 
CHECK FOR COMMENTS 

IC02 Set AS FOLLOWS - 
NORMAL • ICIP 
INITIAL SCAN •ICSR 
LINK STORE 
SAVE INDEX 
IF CC « 73» GO TO IC 10 



10 00000 IC12 CALL 



Q 001X79 

02 01155 



LDA 



•• 

SAV 

CC 

K108 

IC19 
ICSW 

IC24 

F4$IN 

CI 

CI 



ELSfct GO TO IC 

IF ICSW* GO TO IC12 

ELSEi GO TO IC24 

INPUT SYMBOLIC CARD IMAGE 



U630 

0631 

0632 

0633 

0634 

0635 

0636 

0637 

0636 

0639 

0640 

0641 

0643 

0643 

0644 

0645 

0646 

0647 

0646 

0649 

0650 

0651 

0652 

0653 

0694 

0655 

0696 

0697 

0698 

0659 

0660 

0661 

0662 

0663 

0664 

0665 

0666 
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PAGE 



IV 



0667 


01102 


0404 


70 




LQR 


8 


0668 


01103 


11 


01152 




CAS 


K16 


0669 


01104 


01 


U1106 




JMP 


♦ ♦2 


0670 


01105 


01 


01150 




JMP 


IC30 


0671 


01106 


07 


00700 




SUB 


Ki5 


0672 


01107 


101040 




SN2 




0673 


OHIO 


01 


01116 




JMP 


IC18 


0674 


01111 


02 


00764 




UDA 


K357 


0675 


01112 


03 


01157 




ANA 


CU2 


0676 


01113 


07 


00673 




SU8 


K8 


0677 


01114 


100040 




SZE 




0678 


01115 


01 


01144 




JMP 


IC26 


0679 


01116 


04 


00662 


IC18 


STA 


CC 


0680 


01117 


02 


01157 




UDA 


CI*2 


0681 


01120 


03 


00733 




ANA 


K116 


0662 


01121 


06 


00763 




ADD 


HC2 


0683 


01122 


04 


01157 




STA 


CI*2 


0684 


01123 


02 


00756 




IDA 


CRET 


0685 


01124 


01 


01135 




JMP 


IC20 


0666 


01125 


02 


00662 


IC19 


UDA 


CC 


0687 


01126 


07 


00717 




SUB 


KlOl 


0686 


01127 


0404 


77 




UQR 


1 


0689 


01130 


04 


00000 




STA 


XR 


0690 


01131 


1 02 


01155 




LDA 


CM 


0691 


01132 


101001 




SSC 




0692 


01133 


.0404 


70 




LGR 


8 


0693 


01134 


03 


00727 




ANA 


KlOO 


0694 


01135 


04 


00607 


IC20 


STA 


TC 


0695 


01136 


12 


00662 




IRS 


CC 


0696 


01137 


10 


03016 


IC22 


JST 


RST 


U697 


01140 


-0 01 


01066 




JMPt 


ICOO 


0698 


01141 


02 


00674 


IC24 


LDA 


K9 


0699 


01142 


04 


00607 




STA 


TC 


0700 


01143 


01 


01137 




JMP 


IC22 


0701 


01144 


10 


03227 


IC26 


JST 


LIST 


0702 


01145 


U2 


00725 




LDA 


K107 


0703 


01146 


04 


00662 




STA 


CC 



GO TO IC 14 
= (C) 

COMMENT CARD (IQNORE) 
s(S> 

CONTROL CARD (IGNORE COLUMN 6J 

IF CARD COLt SIX IS 

ZERO OR BLANK, QO TO IC18 



ELSEi QO TO IC26 

ec a> 0, 

Cl(6) « SPECIAL 

• ♦340 



TC » C,R, 
TC « CI(CC) 



CC t cc*i 

HESTURE INDEX 

RETURN 

TC • /, END OF LINE 



• STATEMENT SCAN 



C50 TO IC22 

LIST, CONTINUATION CARD 

CC ■ 7, IGNORE STATEMENT NO, 



0667 
0668 
0669 
0670 
0671 
0672 
0673 
0674 
0675 
0676 
0677 
0678 
0679 
0680 
0681 
Q682 
0683 
0684 
0685 
0686 
0687 
0688 
0689 
0690 
0691 
0692 
0693 
0694 
695 
Q696 
0697 
0698 
0699 
0700 
0701 
0702 
0703 



HONEYWELL COMPUTER CONTROL DIVISION PROGRAM DOCUMENTATION 

• C210-001-6601 (FRTN) 3C NU, 180463000 HEV, D PAGE 20 

0704 01147 01 01125 JMP IC19 GO TO IC19 0704 

0705 01150 10 03227 IC30 JST LJST PRINT CARD IMAGE 0705 

0706 01151 01 01077 JMP IC12 READ IN NEW CARD 07Q6 

0707 01152 000303 K16 OCT 303 OC 0707 
0706 01153 000111 K106 DEC 73 0708 

0709 01154 120240 KASP BCl 1» (SPXSP) MUST PRECEDE CARD IMAGE BUFFER 0709 

0710 01155 CI BSS 40 0710 

0711 01225 120240 BCI 20, 0711 

01226 120240 

01227 120240 

01230 120240 

01231 120240 

01232 120240 

01233 120240 

01234 120240 

01235 120240 

01236 120240 

01237 120240 

01240 120240 

01241 120240 

01242 120240 

01243 120240 

01244 120240 

01245 120240 

01246 120240 

01247 120240 
01250 120240 

0712 • 0712 

0713 # 0713 

0714 • 0714 

0715 • •••••••••••••••• 0715 

0716 # •UNlNPUT COLUMN* 0716 

0717 * ••«•*••••••••••» 0717 

0718 • BACK UP ONE COLUMN 0718 

0719 ♦ 0719 

n7inn40e4 n nn n n n n 1 1 rt n n rs a m __ .._^< 

0721 01252 13 00662 IMA CO CCs CC-l 0721 
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• C210-001-6601 (FrTN) 3C NU, 180463U00 RfcV, u PACiE 21 

0722 01253 07 00717 SUB KlOl RfcTAIN (A) 0722 

0723 01254 13 00662 IMA CC 0723 

0724 01255 -0 01 01251 JMP* UCOO 0724 

0725 • 0725 



0726 • 

0727 • •••••••••••»••«•« 



0726 

0727 



0728 * •INPUT CHARACTER* 0728 

0729 • ••••••••••«•••«•« 0729 

0730 » INPUT ONE CHARACTER FROM EITHER 073C 

0731 # 1, INPUT BUFFER (E9AR POSITIVE) OR Q73l 

0732 • 2. EUUIVALENCe BUFFER (EBAr? NEGATIVE) 073? 

0733 . ♦ 0733 

0734 01256 000000 CHOO DAC •• 0734 
D735 01257 02 00660 LDA EBAR IF ^dkH 7 Q, 0735 

0736 01260 101400 SMI 0736 

0737 01261 01 01314 JMP CHIO GO TO CHlO 0737 

0738 01262 10 01066 CH03 JST ICOO INPUT COLUMN 0738 

0739 01263 07 00673 SUB K8 IF 8UANK, REPEAT 0739 

0740 01264 101040 SN2 0740 

0741 01265 U 01 01262 JMP CH03 0741 

0742 01266 02 00607 LDA TC ELSEi 0742 

0743 • 0743 

0744 01267 11 01341 CH04 CAS CH13 ••301 Q744 

0745 01270 101000 NOP 0745 

0746 01271 01 01306 JMP CH06 0746 

0747 01272 11 00716 CAS K61 ••271 0747 

0748 01273 01 01303 JMP CH05 0748 

0749 01274 101000 NOP 0749 

0750 01275 11 00700 CAS K15 »'244 0750 

0751 01276 01 01300 JMP •♦2 0751 

0752 01277 01 01302 JMP CH05-1 0752 

0753 01300 11 00715 CAS K60 »'260 0753 

0754 01301 101000 NOP 0754 
U755 01302 140040 CRA ALPHA NUMERIC CHARACTER 0755 
0756 01303 04 00643 CH05 STA DFL DELIMITER E^TRY 0756 
U757 01304 02 00607 LDA TC bXIT WITH TC I ^ A U757 
'J756 Uli05 -0 01 ui236 JHP» CHOC 0758 
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01306 
01307 
01310 
01311 
01312 
01313 
01314 
01315 
01316 
01317 
01320 
01321 
01322 
01323 
01324 
01325 
01326 
01327 
01330 
01331 
01332 
01333 
01334 
01335 
01336 
01337 
01340 
01341 



0759 
0760 
0761 
0762 
0763 
0764 
0765 
0766 
0767 
0768 
0769 
0770 
0771 
0772 
0773 
0774 
0775 
0776 
0777 
0778 
0779 
0780 
0781 
0782 
0783 
0784 
0785 
0786 
0787 
0788 
0789 
0790 
0791 
0792 
0793 



0795 01343 10 01256 



11 01340 
01 01303 
lOlQOO 

01 01302 
04 00643 

01 01256 

02 00644 
11 00660 
01 01320 

01 01335 
04 00000 

0410 60 

1 02 15400 
0412 70 

1 04 15400 

000201 

04 00607 

100040 

01 01267 

02 00644 
07 00717 
04 00644 
01 01314 

140500 

04 00660 

01 11715 

000332 

000301 



CH06 

CH08 
CHIO 



CH12 



K63 

CH13 

» 



CAS 

JMP 

NOP 

JMP 

STA 

JMP* 

LDA 

CAS 

JMP 

JMP 

STA 

LLL 

LDA 

LLR 

STA 

lAB 

STA 

SZE 

JMP 

LDA 

SUB 

STA 

JMP 

SSM 

STA 

JMP 

OCT 

OCT 



K63 

CH05 

CH05-1 

DFL 

CHOO 

E 

EBAR 

• ♦2 

CH12 



16 

DP,1 

8 

DP,1 

TC 

CH04 

E 

KlOl 

E 

CHIO 

EBAR 
C4 
332 
301 



• •332 



IF fc « EBAR 



QO TO CH12 

SET E INTO INDEX 

SET (B) TO ZERO 

CURR6NT CHARACTER WORD 

SAVE REMAINING CHARACTER IF ANY 

TC'LEFTMOST CHARACTER 

SKIP IF NEW CHARACTER WORD NEtUED 

E«E-1 
«l 

PICK UP NEXT CHARACTER WORD 
HAKE E MINUS 

QO TO ASSIGN SPEC 
OZ 



•INPUT DIGIT* 
A IS ZERO IF NOT DIGIT 



JST 



CHOO 



INPUT A CHAR 



0759 
0760 
a761 
0762 
0763 
0764 
0765 
0766 
0767 
0768 
0769 
0770 
0771 
0772 
0773 
0774 
0775 
0776 
0777 
0778 
0779 
U780 
0781 
0782 
0703 
0784 
0785 
Q766 
0787 
0788 
0769 
0790 
0791 
0792 
0793 
Q794 
0795 
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"♦2/1 (9) 0796 

(A) « TC 0797 

ELSfc, (A) a 0798 

RETURi^ 0799 

oeoo 

0801 
0802 
0803 
0804 
0805 
0806 
••••••«••••••••••••«•• 0807 

•INPUT (A) CHARACT6RS* 0808 

•*••••••«•«••••••••••• 0609 

COUNT IN XR, TERMINATES HllH EITHER 0810 

1, CHAR COUNT -1 s ZERO OR 0811 

2. UAST CHAR IS A DELIMITER 0812 

Q613 
0814 

SET COUNTER 0815 

0816 
EXCHANGE IBUF AND ID 0817 

0818 
NTID 5 0819 

INPUT A CHARACTER 0820 

0821 
IF DFL NOT ZERO, 0822 

CONTINUE 0823 

ELSE, 0824 

TEST COUNTER 0825 

MORE CHARACTERS TO INPUT 0826 

EXCHANGE ID AND IBUF 0827 

RETURN 0828 

EXCHANGE IBUF AND ID 0629 

SAVE liNDEX 0830 

0831 
0832 



0796 


01344 


11 00716 




CAS 


K61 


0797 


01345 


•0 01 01342 




vIMP* 


1000 


0798 


01346 


01 01353 




JMP 


IDIO 


0799 


01347 


11 00715 




CAS 


K60 


08Q0 


01350 


101000 




NOP 




0801 


01351 


01 01353 




JMP 


#♦2 


0802 


01352 


•0 01 01342 




JMP* 


IDOO 


0803 


01353 


140040 


1010 


CRA 




0804 


01354 


•0 01 01342 




JHP» 


1000 


0805 












0806 












0807 










•' 


0808 










• 


0609 










• 


0810 










CHAR 


0811 












0812 












0813 












0814 


01355 


000000 


lAOO 


DAC 


• • 


0815 


01356 


140407 




TCA 




0816 


01357 


04 01411 




STA 


IA99 


0817 


01360 


10 01374 




J ST 


IA50 


0818 


01361 


140040 




CRA 




0819 


01362 


04 00575 




STA 


NTID 


0820 


01363 


10 01256 


lAlO 


JST 


CHUQ 


0821 


01364 


10 0301^5 




JST 


PACK 


0822 


01365 


02 00643 




LDA 


DFL 


0823 


01366 


100040 




SZE 




0824 


01367 


01 01372 




JMP 


IA20 


0925 


01370 


12 01411 




IRS 


IA99 


0826 


01371 


01 Q1363 




JMP 


lAlO 


0827 


01372 


10 01374 


IA20 


JST 


IA50 


0828 


01373 


-0 01 01355 




JMP# 


lAOO 


0629 


01374 


000000 


IA50 


DAC 


• • 


0630 


01375 


10 03007 




JST 


SAV 


0831 


01376 


02 01410 




LDA 


IA90 


0832 


01377 


04 OOUOO 




STA 


XR 
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0833 


01400 


1 


02 


01504 




UDA 


IBUF*3.1 




0834 


01401 


1 


13 


01500 




IHA 


ID«3,1 




0839 


01402 


1 


04 


01504 




STA 


IBUF*3,1 




0836 


01403 





12 


oodoo 




IRS 


XR 




0837 


01404 





01 


01400 




JMP 


••4 




0838 


01405 





10 


03016 




JST 


RSf 


RESTORE INDEX 


0839 


01406 





02 


00575 




LDA 


NtiD 




0840 


01407 


•0 


01 


01374 




JMP* 


IA!$0 




0841 


01410 


177775 


IA90 


OCT 


-3 




0642 


01411 





00 


00000 


IA99 


PZE 







0643 


















0844 
0849 
0646 
0847 
0848 














mAAAAJlJfcJ 


fcJlAJfcAAAAAM 














w W W w w w W 1 

•FINISH 


rWwwWlvWVWW 

OPERATOR* 














WWVWVWVIrwwwwwwwww 

WRAP UP LOGICAL/RELATIONAL OPERATORS 


0849 


















0850 


01412 





000000 


fNOO 


DAC 


• • 




0851 


01413 





02 


00643 




LDA 


DFL 


IF UFL NOT . , 


0852 


01414 





04 


0l5dl 




STA 


IBUF 




0853 


01415 





07 


00675 




SUB 


KIO 




0854 


01416 


100040 




SZE 






0855 


01417 





01 


01422 




JMP 


FN05 


GO TO FN05 


0856 


01420 





02 


00722 




LDA 


K104 




0857 


01421 





10 


01355 




JST 


lAOO 




0858 


01422 





02 


00731 


FN05 


LDA 


KllO 


USE TABLE TO CONVERT 


0859 


01423 





04 


oodoo 




STA 


XR 


OPERATOR 


0860 


01424 


1 


02 


01460 


^NIO 


LDA 


FN90*17,1 




0861 


01425 





11 


01501 




CAS 


IBUF 




0862 


01426 





01 


01430 




JMP 


• ♦2 




0863 


01427 





01 


01434 




JMP 


FN20 




0864 


01430 





12 


oodoo 




IRS 


XR 




0865 


01431 





01 


01424 




JMP 


FNIO 




0866 


01432 





02 


00607 




LDA 


TC 




0867 


01433 


-0 


01 


01412 




JMP» 


FNOO 




uooo 


0^ ^ M "m M 


X 


02 


01477 


FN20 


LDA 


FN9i*i7ii 


FOUNu A LOGICAL OPERATOR 


0869 


01435 





04 


00607 




STA 


TC 


SET l.viTO TC 



0633 
0834 
0835 
0836 
0937 
0638 
0839 
0840 
0841 
0842 
0843 
0844 
0845 
0846 
0847 
U848 
0649 
0850 
0851 
0652 
0893 
0854 
0895 
0896 
08$7 
0896 
0859 
0860 
0661 
0862 
0863 
0864 
0869 
0866 
0867 
C668 
0669 
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0870 


01436 


•0 01 01412 


0871 


01437 


000253 F 




01440 


000255 




01441 


000252 




01442 


000257 


0372 


01443 


147317 




01444 


140716 




01445 


147722 




01446 


146324 




01447 


146305 




01450 


142721 




01451 


143705 




01452 


143724 




01453 


147305 


0873 


01454 


000275 




01455 


000254 


0874 


01456 


000001 F 




01457 


000002 




01460 


000003 




01461 


000004 




01462 


000005 




01463 


000006 




01464 


000007 




01465 


000010 




01466 


000011 




01467 


000012 




01470 


000013 




01471 


000014 




01472 


000015 




01473 


000016 




01474 


000017 


0875 






0876 






0877 






0878 






0879 






0880 







JMP# FNOO 
FN90 OCT 253,255,252,257 ♦-»/ 



BCI 9,N0AN0RLTUEE0GEGTN6 



0870 
0871 



0872 



OCT 275,254 », 

FN91 OCT 1*2,3,4, 5, 6, 7, 10, 11, 12, 13, 14, 15, 16, 17 



0873 

0874 



•INPUT DNA* 
BASIC INPUT ROUTINt, HANDLES FOlLUWING 



0875 
0876 
0077 
0676 
0879 
0680 



. . .^^ ■^- TT-r T-, -r -r <-<MiniiT'-ri re\%iTnf\t rMiiiCinU DPH'^PAM nnril ME MT ATIOM 

JrlOlSiilivviiiLii-i tOmPUiER LUwiRUi. i/lViiiUri , kuos^m.t. «,L.^wrai^,, .a. .u.. 

» C210-001-6601 (FRTiv) ^5C .NO , lb04630CG ^tv. L PAijt 'dt 



uaai » CONSTANT CONVtHSION Cb8l 

yacJ2 • HODE TYPING (CONSTANTS, I MPL lED/ V AH I AtJL&b ) 0882 

0863 • ALL OPERATOWS (TERMINATE ITEM) 0883 

06tt4 • °®*** 

U885 01475 ID BSS 4 0885 

0886 001475 TIU EQU ID TEMP STORE FOR ID 0886 

0887 01501 IBUF BSS 3 3-WOHDBUr 0887 

0888 015U4 00 OOUQU TIDN PZE ^^^^ 

0889 01505 177727 K155 OCT 177727 -41 0889 

0890 01506 024000 K156 OCT 024000 1085 0390 

0891 01507 007777 K157 OCT 007777 0891 



0892 01510 074000 K158 OCT 074000 



0905 01525 04 00655 STA lU 



0892 



0893 01511 00 00000 fX PZE SIGN FLAG 0893 

0894 01512 00 00000 F2 PZE lilt 

0895 01513 00 00000 F3 PZE INPUT bXPONENT 0895 

0896 01514 00 00000 F4 PZE NO, FRAC. POSITIONS 0896 
U897 01515 00 00000 Fb PZE TEMP DELIMITER STORE 0897 

0898 01516 00 00000 F6 PZE °!'^ 

0899 01517 00 00000 L4 PZE 0899 

0900 01520 00 00000 HOLF PZE HOLLERITH FLAG 0900 

0901 



0901 01521 000000 DNOO DAC •» 

0902 01522 140040 DNOl CRA 0902 

0903 01523 04 01520 STA HOLF SET HULF «0 0903 

0904 01524 04 01514 STA F4 F4 ■ 0904 



0905 



0906 01526 04 00573 STA NT IU»NT«NTlD»0 0906 

0907 01527 04 00575 STA NTID ?;?; 

0908 01530 10 02741 JST BLNK CLEAR OUT TID = ID 0903 

0909 01531 001475 DAC TID 0909 

0910 01532 10 02741 JST BLNK 0910 

0911 01533 001511 DAC Fl F1,F2,F3 « 0911 

0912 01534 140040 DN06 CRA ^^*^ 

0913 01535 04 00653 STA IM 091^ 

0914 Q1536 04 112352 STA DNX2 0914 

0915 01537 10 01342 Div07 JST IDOO INPUT UIGIT 0915 

0916 01540 100040 SZE ^"J'-J 

0917 01541 01 01603 JMP DM4 (A) N'jN-ZERO, GO TO DN14 0917 
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0916 


01542 





02 


01477 DNIO LDA 


TID*2 


0919 


01543 





03 


01510 


ANA 


K158 


0920 


01544 


100040 


SZE 




U921 


01545 





01 


01575 


JMP 


SKIP 


0922 


01546 





06 


00653 


ADO 


IM 


0923 


01547 


0405 


77 


ARS 


1 


0924 


01550 





06 


01514 


ADO 


F4 


0925 


01551 





04 


Oi5i4 


STA 


r4 


0926 


01552 





02 


00717 


LDA 


KlOl 


0927 


01553 





04 


00573 


STA 


NT 


0928 


01554 





06 


00717 


ADD 


KlOl 


0929 


01555 





04 


00655 


STA 


lU 


0930 


01556 





10 


03202 


JST 


SFT 


0931 


01557 





001475 


DAC 


ID 


0932 


01560 





10 


02754 


JST 


M0V3 


0933 


01561 





10 


03202 


JST 


SFT 


0934 


01562 





001475 


DAC 


ID 


0935 


01563 





10 


03202 


JST 


SFT 


0936 


01564 





001475 


DAC 


ID 


0937 


01565 





10 


02653 


JST 


AD3 


0938 


01566 





10 


02741 


JST 


BLNK 


0939 


01567 





002347 


DAC 


DNXl 


0940 


01570 





02 


00607 


LDA 


TC 


0941 


01571 





07 


00715 


SUB 


K60 


0942 


01572 





04 


02347 


STA 


DNXl 


0943 


01573 





10 


02653 


JST 


A03 


0944 


01574 





01 


01537 


jmp 


DN07 


0945 


01575 





02 


00762 SKIP IDA 


MIN2 


0946 


01576 





06 


00653 


ADD 


IM 


0947 


01577 


0405 


77 


ARS 


1 


0948 


01600 





06 


01514 


ADD 


F4 


0949 


01601 





04 


01514 


STA 


F4 


0950 


01602 





01 


01537 


JMP 


DN07 


0951 


01603 





02 


00653 0N14 LDA 


IM 


0952 


01604 





07 


00720 


SUB 


K102 


0953 


01605 


100040 


SZE 




0954 


01606 





01 


01704 


JMP 


DNtjQ 



CHECK FOR OVERFLOW AND ADJUST 
POSITION COUNT IF NECESSAR?, 



F4 « F4*l IF NO OVERFLOW 
AND IM ALREADY SET TO REAL 

NT«1 

lU » VAR/COD 
SHIFT ID LEFT 

MOVE TO TEMP STORE 



ID » ia#ID*TC 



IM » REAL 



NO, GO TO ONbO 



0918 
0919 
0920 
0921 
0922 
0929 
0924 
0925 
U926 
0927 
0928 
0929 
0930 
0931 
0932 
0933 
0934 
0935 
0936 
0937 
0938 
0939 
0940 
0941 
0942 
0943 
0944 
0945 
0946 
0947 
0948 
0949 
0950 
0951 
0952 
0953 
0954 
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0955 


01607 


02 00675 


0N16 


IDA 


KID 


0956 


01610 


04 01515 


DN17 


STA 


F5 


0957 


01611 


02 00643 




LDA 


DFL 


0958 


01612 


100040 




SZE 




0959 


01613 


01 02144 




JHP 


DN90 


0960 


01614 


02 00607 


0N20 


LDA 


TC 


0961 


01615 


07 02943 




SUB 


Kll 


0962 


01616 


101040 




SNZ 




0963 


01617 


01 01660 




JMP 


DN26 


0964 


01620 


07 00717 




SUB 


KlOl 


0965 


01621 


101040 




SNZ 




0966 


01622 


01 01631 




JMP 


DN22 


0967 


01623 


10 01251 




JST 


UCOO 


0968 


01624 


02 00675 




LDA 


KIO 


0969 


01625 


04 00643 




STA 


DFL 


0970 


01626 


02 00717 




LDA 


KlOl 


0971 


01627 


04 00653 




STA 


IM 


0972 


01630 


01 01772 




JMP 


DN67 


0973 






• 






0974 


01631 


10 01342 


0N22 


JST 


IDOO 


0975 


01632 


101040 




SNZ 




0976 


01633 


01 01670 




JMP 


DN30 


0977 


01634 


02 00607 




LDA 


TC 


0978 


01635 


07 00676 




SUB 


K12 


0979 


01636 


101040 




SNZ 




0980 


01637 


01 01663 




JMP 


DN28 


0981 


01640 


06 00720 




ADD 


K102 


0982 


01641 


101040 




SNZ 




0983 


01642 


01 01665 




JMP 


DN29 


0984 


01643 


02 01515 




LDA 


F5 


0985 


01644 


04 00643 




STA 


DFL 


0986 


01645 


10 01251 




JST 


UCOO 


0987 


01646 


10 01412 


DN24 


JST 


FNOO 


0988 


01647 


02 00717 


0N25 


LDA 


KlOl 


0989 


01650 


04 00653 




STA 


IM 


0990 


01651 


02 01476 




LDA 


iD*i 


0991 


01652 


100040 




SZE 





YES. 

F5 « »,♦ 

IF DFL "0, GO SO DN20 (5) 

ELSE GO TO DN90 (9) 
IF TC « D, GO TO DN26 



ELSfe» IF TC » E, QO TO DN22 
TERMINATOR ■ E 

■'256 (,) 

SET DELIMITER FLAG 

»1 

SET ITEM MODE TO INTEGER 

FINISH OPERATOR AND EXIT 

INPUT DIGIT 

IF (A) s 0» GO TO DN30 

IF TC ■ -, GO TO DN28 



UN-INPUT COL 
FINISH OPERATOR 
IM « INT 

U iU IS TOO BIG TO 
BE AN INTEGER (>L2), 



0959 
0956 
0957 
0958 
0959 
0960 
0961 
0962 
0963 
0964 
0965 
0966 
0967 
0968 
0969 
0970 
0971 
0972 
0973 
0974 
0975 
0976 
0977 
0978 
0979 
0980 
0981 
0982 
0983 
0984 
0985 
0986 
0987 
0986 
0969 
0990 
0991 
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0992 


01653 


01 01776 


JMP 


DN69 


0993 


01654 


02 01477 


IDA 


ID42 


0994 


01655 


100040 


SZE 




0995 


01656 


01 01776 


JMP 


DN69 


U996 


01657 


01 02055 


JMP 


DN64 


0997 


01660 


02 00724 0N26 


IDA 


K106 


0998 


01661 


04 00653 


STA 


IM 


0999 


01662 


01 01631 


JMP 


DN22 


1000 


01663 


02 00717 DN28 


LDA 


KlOl 


1001 


01664 


04 01512 


STA 


F2 


1002 


01665 


10 01342 DN29 


JST 


IDOO 


1003 


01666 


100040 


SZE 




1004 


01667 


01 01776 


JMP 


DN69 


1005 


01670 


02 01513 DN30 


LDA 


F3 


1006 


01671 


0415 75 


ALS 


3 


1007 


01672 


13 01513 


IMA 


F3 


1008 


01673 


0415 77 


ALS 


1 


1009 


01674 


06 01513 


ADD 


F3 


1010 


01675 


06 00607 


ADD 


TC 


1011 


01676 


07 00715 


SUB 


K60 


1012 


01677 


04 01513 


STA 


F3 


1013 


01700 


10 01342 


JST 


IDOO 


1014 


01701 


100040 


SZE 




1015 


01702 


01 02144 


JMP 


DN9Q 


1016 


01703 


01 01670 


JMP 


DN30 


1017 


01704 


02 00720 DN50 


LDA 


K102 


1016 


01705 


04 00653 


STA 


IM 


1019 


01706 


02 00607 


LDA 


TC 


1020 


01707 


07 00675 


SUB 


KIO 


1021 


01710 


101040 


SNZ 




1022 


01711 


01 01725 


JMP 


DN54 


1023 


01712 


02 00573 


LDA 


NT 


1024 


01713 


101040 


SNZ 




1025 


01714 


01 02005 


JMP 


DN72 


1026 


01715 


02 00607 


LDA 


TC 


1027 


01716 


07 02544 


SUB 


K14 


1028 


01717 


101040 


SNZ 





GO TU DN69 (20) 



OTHtKrtlSE, GO TO DN84{12) 

IH « DBL 



F2 » 1 

INPUT DIGIT 

IF (A) m 0, GO TO DN30 (8.5> 

ELSE, GO TO DN69 (20) 

F3 » 10 • F3 

F3 » F3 ♦TC 



INPUT DIGIT 

IF (A) 9 0» GO TO DN30 (8,5) 
ELSE, GO TO DN90 (9) 



IM«REA 

IF TC » ,, GQ TO DN54 

ELSE, 

IF NT ■ 0, GO TO DN72 

IF TC 3 H, GO TO DN9H (22) 



0992 
0993 
0994 
0995 
0996 
0997 
0998 
0999 
1000 
1001 
1002 
1003 
1004 
1005 
10Q6 
1007 
1008 
1009 
1010 
1011 
1012 
1013 
1014 
1015 
1016 
1017 
1016 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
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1029 
1030 
1031 
1052 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1048 
1049 
1050 
1051 
1052 
1053 
1054 
1055 
1056 
1057 
1058 
1059 
1060 
1061 
1062 
1063 



01720 
01721 
01722 
01723 
01724 
01725 
01726 
01727 
01730 
01731 
01732 
01733 
01734 
01735 
01736 
01737 
01740 
01741 
01742 
01743 
01744 
01745 
01746 
01747 
01790 
01751 
01752 
01753 
01754 
01755 
01756 
01757 
01760 
01761 
01762 



01 02301 
02 00643 
100040 
01 01647 
01 016U7 
10 01342 
101040 
01 01542 
02 00573 
101040 
01 01735 
02 00607 
01 0160^ 
140040 
04 00607 
10 01251 
02 01511 
100040 
01 01756 
02 00^24 
10 01355 
ID 02764 
002534 
01 01761 
10 02764 
002537 
01 01763 
10 02764 
002543 
01 02342 
140040 
04 00653 
01 01772 
02 00717 
04 01475 



1065 01764 04 00573 



JMP 
UDA 
SZE 
JHP 
JMP 

DN54 JST 
SNZ 
JMP 
LDA 
SNZ 
JMP 
LDA 
JMP 

0N56 CRA 
STA 

DN56 JST 
IDA 
SZE 
JMP 

DN60 LDA 
JST 
JST 
DAC 
JMP 
JST 
DAC 
JMP 
JST 
DAC 
JMP 

DN63 CRA 
STA 
JMP 

DN64 LDA 
STA 

I n i 

STA 



DNi9H 
DFL 

DN25 
DN16 
IDOO 

DNIO 
NT 

0N56 

TC 

DN16 

TC 
UCOO 

ri 

DN63 

Kld6 

lAOO 

CIB 

Kl*3,l 

DN64 

cid 

K2*3,l 

DN66 

CIB 

KN0T*3,1 

DN9N 

IM 

DN67 
KlOl 
TID 

Lf 4 n t 

Nt 



IF UFL « 0, 

GO TO DN16 (4.9) 

ELSE, GO TO DN25 

INPUT DIGIT 

IF (A) s 0, GO TO DNIO (3) 

IF NT ■ 0, GO TO DN56 

F5 « TC 

GO TO DN16 (4) 

TC B ) 

UN-INPUT A COLUMN. 

IF Fl « 0, GO TO DN60 

ELSEf GO TO DN63 (15) 

INPUT (6) CHARS 
IF IBUF « TRUE. I 



IF IBUF « FALSE,, 
GO TO 5N66 (16) 

CHECK FOR .NOT. OPERATOR 
CHECK FOR .NOT, OPERATOR 
OPEHATOR IS ,NOT, 
IM » 

GO TO DN67 Ci8) 



NAME TAG s 1 (CONSTANT) 



1029 
1030 
1031 
1Q32 
1033 
1034 
1035 
1036 
1037 
1038 

1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1048 
i049 
1050 
1051 
1052 
1053 
1054 
1055 

1056 
1057 
1056 
1059 
1060 
1061 
1062 
1063 

* r\ ^ A 

Ay w^ 

1065 
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1066 


01765 


02 00720 


IDA 


K102 


1067 


01766 


04 00655 


STA 


lU 


1068 


01767 


02 00721 


LDA 


K103 


1069 


01770 


04 00653 


STA 


IM 


1070 


01771 


10 01256 


JST 


CHOO 


1071 


01772 


10 01412 


DN67 JST 


FNOO 


1072 


01773 


02 01516 


DN66 LDA 


Ft 


1073 


01774 


101040 


SN2 




1074 


01775 


01 02000 


JMP 


DN70 


1075 


01776 


02 00675 


DN69 UDA 


KIO 


1076 


01777 


04 00607 


STA 


TC 


1077 


02000 


140040 


DN70 CRA 




1078 


02001 


04 01516 


STA 


Ft 


1079 


02002 


04 00050 


STA 


SXF 


1080 


02003 


02 O0653 


LDA 


IM 


1081 


02004 


-0 01 01521 


JMP« 


DNOO 


1062 


02005 


02 01511 


DN72 LDA 


Fl 


1083 


02006 


101040 


SNZ 




1084 


02007 


01 02013 


JMP 


DN74 


1085 


02010 


02 01511 


LDA 


Fl 


1086 


02011 


04 00607 


STA 


TC 


1087 


02012 


01 01737 


JMP 


DN58 


1088 


02013 


02 00607 


DN74 LDA 


TC 


1089 


02014 


07 00676 


SUB 


K12 


1090 


02015 


101040 


SNZ 




1091 


02016 


01 02052 


JMP 


DN82 


1092 


02017 


06 00720 


ADD 


K102 


1093 


02020 


101040 


SNZ 




1094 


02021 


01 02052 


JMP 


0N62 


1095 


02022 


02 00643 


LDA 


DFL 


1096 


02023 


100040 


SZE 




1097 


02024 


01 01756 


JMP 


DN63 


1098 


02025 


02 00607 


LDA 


TC 


1099 


02026 


11 00712 


CAS 


K43 


1100 


02027 


01 02032 


JMP 


• ♦3 


1101 


02030 


01 02035 


JMP 


DN78 


1102 


02031 


01 02037 


JMP 


DN80 



lUsVArt 



IM « LUG 



FINISH OPERATOR 

IF F6 B 0, 

GO TO DN70 (21) 



TC « , 

F6 » SXF » 

(A) a IM 

RETURN 

IF Fl s 0, GO TO DN74 

ELSfe, TC « Fl 

GO TO DN58 <14) 

IF TC « -, GO TO DN82 



CHECK FOR TC » ♦ 

IF DFL « NON-ZERO 
GO TO DN63 (15) 



1066 

1067 

1068 

1069 

1070 

1071 

1072 

1073 

1074 

1U75 

1076 

1077 

1078 

1079 

1080 

1081 

1082 

1083 

1084 

1085 

1086 

1087 

1088 

1089 

1090 

10 91 

1U92 

1093 

1094 

1095 

1096 

1097 

1098 

1099 

1100 

1101 

1102 
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1103 
1104 
1105 
1106 
1107 
1108 
1109 
1110 
1111 
1112 
1113 
1114 
1115 
1116 
1117 
1118 
1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1128 
1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 

1137 
1 i :^f( 



02032 
02033 
02034 
02035 
02036 
02037 
02040 
02041 
02042 
02043 
02044 
02045 
02046 
02047 
02050 
02051 
02052 
02053 
02054 
02055 
02056 
02057 
02060 
02061 
02062 
02069 
02064 
02065 
02066 
02067 
02070 
02071 
02072 
02073 
02074 



11 02545 

01 02037 

101000 

02 00717 
04 00653 
02 00607 
10 03055 
10 01256 
02 00643 

100040 

01 01772 

02 00575 

07 00724 

100040 

01 02037 
01 01772 
10 01412 
04 01511 

01 01534 

02 01511 
07 007^0 

100040 

01 02100 

140040 

07 01475 

100040 

01 02071 

07 01476 

100040 

01 02074 

01 02076 
04 01475 

02 00741 
07 01476 
04 01476 
no nn7Ai 



CAS 
J MP 
NOP 

0N78 LDA 
STA 

DN80 LDA 

asT 

JST 
LDA 
SZE 
JMP 
LDA 
SUB 
SZE 
JMP 
JMP 

PN82 JST 
STA 
JMP 

DN84 LOA 
SUB 
SZE 
JMP 
CRA 
SUB 
SZE 
JMP 
SUB 
SZE 
JMP 
JMP 

0N6A STA 
LDA 
SUB 

DN8B STA 

I HA 



1139 02076 07 01477 UN8C SUB 



K62 
DNeO 

KlOl 

IM 

TC 

PACK 

CHOO 

DFL 

DN67 
NTiD 
K106 

ON60 

DN67 

FNOO 

Fl 

0N06 

Fl 

Ki02 

DNe5 

TID 

DN8A 
TID*1 

DN8B 

DN8C 

TID 

K123 

TiD*l 

TIU*1 

K123 

TID*2 



IM « INT 

PACK TC TO ID 

INPUT CHAR 

IF DFL IS NOT ZERO, 

GO TO DN67 (18) 

IF NTID « 6i GO TO DN67 



Fl « CONVERTED TC 
GO TO DN06 (2) 
IF Fl « m, 
GO to DN85<13) 



COMPLEMENT THREE WORDS AT TID 



1103 
1104 
1105 
1106 
1107 
1108 
1109 
1110 

nil 

1112 
1113 
1114 
1115 
1116 
1117 
1118 
1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1128 
1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
1138 
1139 



HONEYWELL 



COMPUTER CONTROL DIVISION 



PROGRAM DOCUMENTATION 



♦ C210-001-6601 (FRTN) 



3C NO. 180463000 



RfcV. D 



PAQt 



33 



li4Q 02077 

1141 02100 

1142 02101 

1143 02102 

1144 02103 

1145 02104 

1146 02105 

1147 02106 

1148 02107 

1149 02110 

1150 02111 

1151 02112 

1152 02113 

1153 02114 

1154 02115 

1155 02116 

1156 02117 

1157 02120 

1158 02121 

1159 02122 

1160 02123 

1161 02124 

1162 02125 

1163 02126 

1164 02127 

1165 02130 

1166 02131 

1167 02132 

1168 02133 

1169 02134 

1170 02135 

1171 Q2136 

1172 02137 

1173 02140 

1174 02141 

1175 02142 

1176 02143 



04 01477 
02 00050 
101040 
01 01772 
02 00653 
07 00720 
100040 
d 01 01772 
02 01516 
101040 
01 02127 
02 00723 
04 00653 
02 01475 
13 03637 
04 01475 
02 01476 
13 03640 
04 01476 
02 01477 
13 03641 
04 01477 
10 02555 

01 02000 

02 00607 
07 00672 

100040 

01 01772 
02 01475 
04 03637 
02 01476 
04 03640 
02 01477 
04 03641 
02 00717 
04 01516 
01 01522 



0N65 



DN87 



STA 
IDA 
SNZ 
JMP 
LDA 
SUB 
SZE 
JMP 
LDA 
SNZ 
JMP 
LDA 
STA 
LDA 
IHA 
STA 
LDA 
IMA 
STA 
LDA 
IMA 
STA 
JST 
JMP 
LDA 
SUB 
SZE 
JMP 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
JMP 



TID*2 
SXF 

DN67 

IM 

K102 

DN67 

re 

DN87 

K105 

IM 

TID 

TIDB 

TID 

TID*1 

TIDB*1 

TtO*l 

TID*2 

TIDB*2 

TID*2 

IPOO 

DN70 

TC 

K5 

DN67 

TID 

TIDB 

TID*1 

TlDB^l 

TID*2 

TIDB*2 

KlOl 

F6 

DNOl 



IF SXF « 0, GO TO DN67 (18) 

ELSb, 

IF IM NOT » R6A, 

GO TO DN67 (18) 

ELbfc, 

IF F6 « 0, GO TO DNb7 



IM « CPX 

INTERCHANGE 

3 CELLS 

TID 

WITH 

3 CELLS 

OF 

TIDB 



)»INPUT OPERATOR 
GO TO DN70 (21) 
IF TC a , 



TID-BAR ■ TID 

F6 ■ 1 

GO TO DNOl (1) 

ELSti GO TO DN67 (18) 



114U 
1141 
1142 
1143 
1144 

1145 
1146 
1147 
1148 
1149 
1150 
1151 
1152 
1153 
1154 
1155 
1156 
1157 
1158 
1159 
1160 
1161 
1162 
1163 
1164 
1165 
1166 
1167 
1168 
1169 
1170 
1171 
1172 
1173 
1174 
1175 
1176 
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U77 


02144 


02 01512 DN90 


IDA 


F2 


117d 


02145 


101040 


SNZ 




1179 


02146 


01 02152 


JMP 


DN9A 


1160 


02147 


02 01513 


LDA 


F3 


1161 


02150 


140407 


TCA 




1182 


02151 


04 01513 


STA 


r3 


1183 


02152 


02 01513 DN9A 


LDA 


F3 


1184 


02153 


07 01514 


SUB 


F4 


1185 


02154 


04 01514 


STA 


F4 


1186 


02155 


02 00676 


LDA 


K12 


1187 


02156 


04 01512 


STA 


n 


1188 


02157 


02 01475 


LDA 


TID 


1189 


02160 


06 01476 


ADD 


TID*1 


1190 


02161 


06 01477 


ADD 


TID*2 


1191 


02162 


101040 


SNZ 




1192 


02163 


01 02100 


JHP 


DN65 


1193 


02164 


02 01477 0N9C 


LDA 


TID + 2 


1194 


02165 


0414 77 


LGL 


1 


1195 


02166 


100400 


SPL 




1196 


02167 


01 02176 


JMP 


DN9D 


1197 


02170 


10 03^02 


JST 


SFt 


1198 


02171 


001475 


DAC 


10 


1199 




• 






1200 


02172 


02 01512 


LDA 


F2 


1201 


02173 


07 007i7 


SUB 


KlOl 


1202 


02174 


04 01512 


STA 


F2 


1203 


02175 


01 02164 


JMP 


0N9C 


1204 


02176 


02 01514 DN90 


LDA 


F4 


1205 


02177 


11 007^7 


CAS 


ZERO 


1206 


02200 


01 02232 


JMP 


DN9E 


1207 


02201 


01 02^$0 


JMP 


DN9G 


1208 


02202 


12 01514 


IRS 


F4 


1^09 


02203 


101000 


NOP 




1210 


02204 


02 01505 


LDA 


K155 


1211 


02205 


04 01504 


STA 


TiDN 


1212 


(32206 


Q in 03157 


ICT 


CUT 


liii 


02207 


001475 


DAC 


TID 



IF F2» 0, GO TO DN9A (10) 

F3 » - F3 

F4 « F3 - F4 

F2 « EXP, BIAS ♦ MANTISSA 
IF TID ■ 0, 
GO TO DN65(13) 

NORMALIZE ID 

ID IS NORMALIZED 

F2 « F2 - « SHIFTS 
CONTINUE NORMALIZE LOOP 

FINISHED E FACTOR LOOP 

F4 s F4 *x 

DIVIDE LOOP COUNTER 



1177 
1178 
1179 
1180 
1181 
1182 
1183 
1184 
1185 
1186 
1187 
1188 
1189 
1190 
1191 
1192 
1193 
1194 
1195 
1196 
1197 
1198 
1199 
1200 
1201 

laoa 

1203 
1204 
1205 
1206 
1207 
1208 
1209 
1210 
1211 

1213 
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1214 
1215 
1216 
1217 
1218 
1219 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
1228 
1229 
1230 
1231 
1232 
1233 
1234 
1235 
1236 
1237 
1238 
1239 
1240 
1241 
1242 
1243 
1244 
1245 
1246 
1247 
1248 
1249 
1250 



02210 
02211 
02212 
02213 
02214 
02215 
02216 
02217 
02220 
02221 
02222 
02223 
02224 
02225 
022:^6 
02227 
02230 
02231 
02232 
02233 
02234 
02235 
02236 
02237 
02240 
02241 
02242 
02243 
02244 
02245 
02246 
02247 

02250 
02251 
02252 
02253 



10 03157 
001475 
10 03202 
001475 
02 01477 
07 01506 

101400 

04 01477 

101400 

12 01475 
12 01504 

01 02212 
10 09202 
001475 

02 01477 

03 01507 

04 01477 

01 02164 
07 00717 
04 0l5i4 

02 01512 
06 00722 
04 01512 
10 03157 
001475 
10 02754 
10 03157 
001475 
10 03157 
001475 
10 02653 
01 02164 



02 01477 
000201 
02 01512 
0401 70 



JST 
DAC 

DNDl JST 
DAC 
LOA 
SUB 
SHI 
STA 
SHI 
IRS 
IRS 
JHP 
JST 
DAC 
LDA 
ANA 
STA 
JHP 

0N9E SUB 
STA 
LDA 
ADD 
STA 
JST 
DAC 
JST 
JST 
DAC 
JST 
DAC 
JST 
JHP 

* 

DN9G LDA 
lAB 
LDA 
LRS 



SRT 

TID 

SFT 

TID 

TID*2 

K156 

TID*2 



TID 

TIDN 

DNDl 

SFT 

TID 

TID* 

K157 

TID* 

DN9C 

KlOl 

F4 

F2 

K104 

F2 

SRT 

ID 

H0y3 

SRT 

ID 

SRT 

ID 

AD3 

DN9C 

CONV 

TID* 



10 AT B"4 



REDUCE DIVIDE COUNTER 



F4 « F4-1 

F2 « F2*4 



ID » 1D#10 



ADD THREE WORD INTEGERS 

ERT THREE WORD INTEGER TO Ii^iTERNAL FORMAT 
2 



F2 
8 



1214 
1215 
1216 
1217 
1218 
1219 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
1228 
1229 
1230 
1231 
1232 
1233 
1234 
1235 
1236 
1237 
1238 
1239 
1240 
1241 
1242 
1243 
1244 
1245 
1246 
1247 
1248 
1249 
1250 
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1251 


02254 


101040 


SNZ 




1252 


02255 


01 02260 


JHP 


#♦3 


1253 


02256 


10 03116 


JST 


EROO 


1254 


02257 


141705 


BCI 


1»CE 


1255 


02260 


000201 


lAB 




1256 


02261 


13 01477 


IHA 


TID*2 


1257 


02262 


000201 


lAB 




1258 


02263 


02 01476 


LDA 


TID*1 


1259 


02264 


0414 77 


LQL 


1 


1260 


02265 


0402 70 


LRR 


8 


1261 


02266 


04 01476 


STA 


TID*1 


1262 


02267 


0402 67 


LRR 


9 


1263 


02270 


Q 02 01475 


LDA 


TID 


1264 


02271 


0414 77 


LGL 


1 


1265 


02272 


0402 71 


LRR 


7 


1266 


02273 


04 01475 


STA 


TID 


1267 


02274 


02 01512 


LDA 


r2 


1268 


02275 


0404 70 


LGR 


8 


1269 


02276 


100040 


sze 




1270 


02277 


01 01776 


JMP 


DN69 


1271 


02300 


01 02055 


JMP 


DN84 


1272 


02301 


04 00653 


DN9H STA 


IM 


1273 


02302 


02 00051 


LDA 


SPF 


1274 


02303 


07 00720 


SUB 


K102 


1275 


02304 


100040 


SZE 




1276 


02905 


02 00724 


LDA 


K106 


1277 


02306 


07 00742 


SUB 


K124 


1278 


02307 


06 01475 


ADD 


TID 


1279 


02310 


101400 


SMI 




1280 


02311 


01 02000 


JMP 


DN70 


1261 


02312 


02 01475 


LDA 


TID 


1282 


02313 


04 01520 


STA 


HOLF 


1283 


02314 


04 01513 


STA 


F3 


1284 


02315 


140407 


TCA 




1285 


02316 


101040 


SNZ 




1286 


02317 


01 02340 


JMP 


DN9K 


1287 


02320 


04 01512 


STA 


F2 



CONSTANT'S EXPONENT OVER § HITS (OVtHFLOW) 



PACK UP TRIPLE PRECISION 
REAL CONSTANT 



GO TO 0N69 (20) 
ELSE* QO TO 0N84 (12) 



HOLF«N0,0F HOLLERITH CHARS. 



FIELD WIDTH OF ZERO 

F2s -1(1 CHAR) OR -2(2 CHAN) 



1251 
1252 
1253 
1254 
1255 
1256 
1257 
1258 
1259 
1260 
1261 
1262 
1263 
1264 
1265 
1^66 
1267 
1268 
1269 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
1277 
1278 
1279 
1280 
1281 
1282 
1283 
1284 
1285 
li86 
1287 
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1288 
1289 
1290 
1291 
1292 
1293 
1294 
1295 
1296 
1297 
1298 
1299 
1300 
1301 
1302 
1303 
1304 
1305 
1306 
1307 
1308 
1309 
1310 
1311 
1312 
1313 
1314 
1315 
1316 
1317 
1318 
1319 
1320 
1321 
1322 
1323 
1324 



02321 
02322 
02323 
02324 
02325 
02326 
02327 
02330 
02331 
02332 
02333 
02334 
02335 
02336 
02337 
02340 
02341 
02342 
02343 
02344 
02345 
02346 
02347 
02352 
02353 



02354 
02355 
02356 
02357 
02360 



10 02741 

001475 

10 01066 DN9J 

10 03055 

12 01512 

01 02323 

02 01913 

03 00717 

101040 

01 02335 

02 00673 

10 03055 

12 00653 

10 01256 0N9M 

01 01772 

10 03116 DN9K 

144306 

02 00723 DN9N 

04 00607 

140040 

04 00653 

01 01773 



000000 
01 02352 



ONXl 
DNX2 



JST 
OAC 
JST 
JST 
IRS 
JMP 
UDA 
ANA 
SNZ 
JMP 
LDA 
JST 
IRS 
JST 
JMP 
JST 
BCI 
LDA 
STA 
CRA 
STA 
JMP 
BSS 
DAC 
JMP* 



000000 
10 01521 
101040 
>0 01 02354 
10 03241 



nOO DAC 
JST 
SNZ 

JMP# 
JST 



BL.NK 

TID 

ICUO 

PACK 

F2 

DN9J 

F3 

KiOl 

•♦s 

K6 

PACK 

IM 

CHOO 

DN67 

EROO 

1,HF 

Kld5 

TC 

IM 

DN68 
3 
*• 

#•1 



SET IDiID+l(lD*2 TO ZERO 

INPUT COLUMN (INCLUDING BLANKS) 
PACK CHARACTERS 2 PER WORD 
REDUCE CHARACTER COUNT 
INPUT AND PACK MORE CHARACTERS 
F3« IF 2 CHAR. HAVE BEEN INPUT 



«»240 (Sp) 

SHIFT A SPACE INTO THE LAST WORD 

INPUT THE TERHINATING CHARACTER 
FINISH OPERATOR AND EXIT 



SET ,NOT, OPERATOR (TC«5> 
SET ,NOT, OPERAtOR (Tc«5) 

IM«0 s UNDEFINED 



OVERFLOW FLAG 



•INPUT ITEM* 
INPUTS AND ASSIGNS ITEM (IF ONE EXISTS) 



• # 

DNOO 

IIOO 
ASUQ 



INPUT DNA 
IF (A) « 

RETURN 

NO, ASSIGN ITEM 



1288 
1289 
1290 
1291 
1292 
1293 
1294 
1295 
1296 
1297 
1298 
1299 
1300 
1301 
1302 
1303 
i304 
1305 
1306 
1307 
1308 
1309 
131U 
1311 
1312 
1313 
1314 
1315 
1316 
1317 
1318 
1319 
1320 
1321 
1322 
1323 
1324 
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1325 


02361 


02 00653 




LOA 


IM 




1326 


02362 


-0 01 02354 




JMP* 


IIOO 


RETURN (A) ■ IM 


1327 














1328 














1329 












JK 


1330 


•INPUT OPERAND 


• 


1331 












# 


1332 










EXIT WITH ITEM MODE IN A (TC SET TO . I 


1333 










OPERAND) 




1334 














1335 


02363 


000000 


QPOO 


OAC 


«# 


INPUT OPERAND 


1336 


02364 


10 02354 




JST 


I too 


INPUT ITEM 


1337 


02365 


100040 




sze 




IF IM « 0, SKIP 


1338 


02366 


-0 01 02363 




JMP# 


OPOO 


ELSE (A) s IM, RETURN 


1339 


02367 


02 00675 




LOA 


KIO 


TC » . 


1340 


02370 


04 00607 




STA 


TC 


(A) > 


1341 


02371 


140040 




CRA 






1342 


02372 


•0 01 02363 




JMP» 


OPOO 


RETURN 


1343 














1344 














1345 














1346 










•INPUT NAME^ 




1347 










•••••••••••• 




1348 










INPUT OPERAND AND 


ENSURE THAT IT IS A N 


1349 














1350 


02373 


000000 


NAOO 


DAC 


• • 


INPUT NAME 


1351 


02374 


10 02363 




JST 


OPOO 


INPUT OPERAND 


1352 


02375 


02 00573 




LDA 


NT 


IF NT « 1, 


1353 


02376 


101040 




SNZ 






1354 


02377 


01 02402 




JMP 


NAIO 




1355 


02400 


10 03116 




JST 


EROO 




1356 


02401 


00 oooii 




P2E 


9 




1357 


02402 


02 00653 


NAIO 


LOA 


IM 


(A) « IM 


1358 


02403 


-0 01 02373 




JMP» 


NAOO 


RETURN 


1359 






• 








i:^An 






« 









NO 



1361 



••••«••••*«•#«* 



1325 
1326 
1327 
1328 
1329 
1330 
1331 
1332 
1333 
1334 
1335 
1336 
i337 
1338 
1339 
1340 
1341 
1342 
1345 
1344 
1345 
1346 
1347 
1348 
1349 
1350 
1351 
1352 
1353 
1354 
1355 
1356 
1357 
1358 
1359 
1560 
1361 
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1362 • »INPUT INTEGEK* ^362 



1363 • 



1389 

1390 « 

1391 # 



1363 



1364 ♦ INPUT ITEM AND ENSURE THAT IT IS AN INTEGER CONSTANT 1364 

1365 # GREATER THAN ZERO 1365 

1366 » 3^366 

1367 02404 000000 IGOO DAC #• INPUT INTEGER 1367 
1366 02405 10 01521 JST DNOO INPUT - DNA 1368 



1369 



1369 02406 02 01511 UDA Fl 

1370 02407 100040 S2E IF Fl » 0, 1370 

1371 02410 01 02430 JMP IG20 AND NT s 1, 1371 

1372 02411 02 00573 LDA NT AND IH a inT, 1372 

1373 02412 101040 SNZ AND TID L2#«15, 1373 

1374 02413 01 02430 JMP IG20 GO TO IGlO 1374 

1375 02414 02 00653 LDA IM ELSE, GO TO IG20 1375 

1376 02415 07 00717 SUB KlOl 1376 

1377 02416 100040 SZE 1377 

1378 02417 01 02430 JMP IG20 

1379 02420 02 01476 LDA TID*1 

1380 02421 100040 SZE 

1381 02422 01 02430 JMP IG20 

1382 02423 02 01477 LDA TID*2 

1383 02424 10U040 SZE 

1384 02425 01 02430 JMP IG20 

1385 02426 02 01475 IGIQ LDA TID I3S5 

1386 02427 -0 01 02404 JMP» 1600 1306 

1387 02430 10 03116 IQ20 JST EROO ERROR 1387 

1388 02431 144716 BCl 1,IN INTEGER REQUIRED 1388 

1389 



1378 
1379 
1380 
1381 
1382 
1383 
1384 



1390 

1392 # #INPUT INTEGER VAR/CON* l392 

}393 . i393 

1394 « 1394 

1395 02432 000000 IVOO DAC •• I395 

1396 02433 10 02363 JST OPOO INPUT OPERAJ^u 1396 

1397 02434 10 02635 JST ITOO INTER TEST 1397 

1398 02435 10 03642 JST TVOO TAG VARIABLE 1398 
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1399 

1400 

1401 

1402 

1403 

1404 

1405 

1406 

1407 

1408 

1409 

1410 

1411 

1412 

1413 

1414 

1415 

1416 

1417 

1418 

1419 

1420 

1421 

1422 

1423 

1424 

1425 

1426 

1427 

1428 

1429 

1430 

1431 

1432 

1433 

1434 

14. IS 



02436 -0 01 02432 






EXIT 



02437 
02440 
02441 
02442 



02443 
02444 
02445 
02446 
02447 
02450 
02451 
02452 
02453 
02454 
02455 
02456 
02457 
02460 
02461 
02462 
02463 



000000 
140040 
04 00573 
04 00653 
04 00655 
04 00575 
02 02516 
10 03055 
10 01342 
100040 
01 02471 
02 00575 
07 00724 
101400 
01 02475 
02 00607 
10 03055 



ISOO 
IS04 



ISIO 



DAC 

CRA 

STA 

STA 

STA 

STA 

LDA 

JST 

JST 

SZE 

JMP 

LDA 

SUB 

SHI 

JMP 

LDA 

JST 



•INPUT INTEGER VARIABLE* 



000000 IROO DAC •• 

10 02432 JST IVOO 

10 02611 JST NCOO 

'0 01 02437 JMP» IROO 



INPUT INT VAR 
INPUT INT VAR/CON 
NON-CONSTANT TEST 
RETURN 



•INPUT STATEMENT NUMBER* 



NUMBER IS FORMED AS SPECIAL NAME , NOT CONVERTED 
TO NUMERIC 



• • 

NT 

IM 

lU 

NTID 

K79 

PACK 

1000 

IS20 
NTID 
Ki06 

IS22 
TC 

PACK 
TID 



lU « IM » IT » 

PUT LEADING »S» IN STATEMENT NO. 



INPUT DIGIT 

NOT A DIGIT GO TO IS20 



PACK TC TO ID - LEGAL ST. NO, CHAH 



1399 

1400 

1401 

1402 

1403 

1404 

1405 

1406 

14U7 

1406 

1409 

1410 

1411 

1412 

1413 

1414 

1415 

1416 

1417 

1418 

1419 

1420 

1421 

1422 

1423 

1424 

1425 

1426 

1427 

1428 

1429 

1430 

1431 

1432 

1433 

1434 

1435 



HONEYWELL 



COMPUTER CONTROL DIVISION 



PROGRAM DOCUMENTATION 



• C210-001-6601 (FRTN) 



3C NO,18046300Q 



KtV, D 



HAGt 



41 



1436 


02465 


11 


02517 




CAS 


K79X 




1437 


02466 


01 


02453 




JMP 


isio 




1438 


02467 


01 


02444 




JMP 


IS04 


IGNORE LEAD ZERO ON ST. NO, 


1439 


02470 


01 


02453 




JMP 


ISIO 




1440 


02471 


02 


00575 


IS20 


LDA 


NTID 




1441 


02472 


07 


00717 




SUB 


KiOl 




1442 


02473 


101400 




SMI 






1443 


02474 


01 


02477 




JMP 


IS25 




1444 


02475 


10 


03116 


IS22 


JST 


EROO 




1445 


02476 


151724 




BCI 


1,ST 


ILLEGAL STATEMENT NUMBER FORMAT 


1446 


02477 


10 


03241 


IS25 


JST 


ASOO 


ASSIGN ITEM 


1447 


02500 


10 


02672 




JST 


STXA 




1448 


02501 


1 02 


15401 




LDA 


DP*1,1 




1449 


02502 


03 


00730 




ANA 


Kill 




1450 


02503 


1 04 


15401 




STA 


DP*1,1 


lU « 


1451 


02504 


02 


00630 




LDA 


AF 


ADDRESS FIELD IS 


1452 


02505 


11 


00055 




CAS 


XST 


LE XST - ALREADY ASSIGNED 


1453 


02506 


-0 01 


02443 




JMP* 


ISOO 




1454 


02507 


•0 01 


02443 




JMP* 


ISOO 


OK - OTHERWISE 


1455 


02510 


02 


00631 




LDA 


AT 


MUST HAVE STR-ABS OTHERWISE 


1456 


02511 


11 


00720 




CAS 


K102 




1457 


02512 


01 


02514 




JMP 


**2 




1458 


02513 


-0 01 


02443 




JMP* 


ISOO 




1459 


02514 


10 


03116 




JST 


EROO 




1460 


02515 


151316 




BCI 


1»RN 


REFERENCE TO A SPECIFICATION STM 


1461 


02516 


000337 


K79 


OCT 


337 




1462 


02517 


157660 


K79X 


OCT 


157660 




1463 








• 








1464 


02520 


000000 


SYOO 


DAC 


• • 


INPUT SYMBOL 


1465 


02521 


02 


00717 




LDA 


KlOl 




1466 


02522 


04 


005^4 




STA 


NtF 


NTF- NOT - DON'T SET lU IN ASOO 


1467 


02523 


10 


02373 




JST 


NAOO 


INPUT NAME 


1466 


02524 


•'O 01 


02520 




JMP* 


SYOO 


EXIT 


1469 
1470 
1471 








• 






LAAMMMJftAAJlAAAJfciLJi 








« 




*EXAMINE 


rwwwwwwwwwwwwwwW 

NEXT CHARACTER* 


1472 








« 






h«*«****««**»«*« 



1436 
1437 
1438 
1439 
1440 
1441 
1442 
1443 
1444 
1445 
1446 
1447 
1448 
1449 
1450 
1451 
1452 
1453 
1454 
1455 
1456 
1457 
1458 
1459 
1460 
1461 
1462 
1463 
1464 
1465 
1466 
1467 
1468 
1469 
1470 
1471 
1472 
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1473 
1474 
1475 
1476 
1477 
1478 
1479 



1480 



1481 
1482 



1483 
1484 
1485 
1486 
1487 
1488 
1489 
1490 
1491 
1492 
1493 
1494 
1495 
1496 
1497 
1498 
1499 
1500 
1501 
1502 
1503 



CHECK NEXT CHAR FOR DIGIT (BACKUP ONE COL* THEN EXIT) 



02525 
02526 
02527 
02530 
02531 
02532 
02533 
02534 
02535 
02536 
02537 
02540 
02541 
02542 
02543 
02544 
02545 
02546 



02547 

02550 
02551 
02552 
02553 
02554 



000000 
10 01342 
10 01251 
'0 01 02525 
152322 
152705 
127240 
143301 
146323 
142656 
000247 
147317 
152256 
120240 
000304 
000310 
000316 
000336 



XNOO 



Kl 



DAC 

JST 

JST 

JMP» 

3CI 



K2 



K3 

KNOT 



Kll 
K14 
K62 
K64 



OCT 
OCT 
OCT 
OCT 



07 00607 

101040 

01 02547 

10 03116 

141710 



SUB 
SNZ 

JMP* 

JST 

BCI 



IDOO 
UCOO 
XNOO 
3. TRUE, 



INPUT DIGIT 
UNINPUT COLUMN 



BCI 3»FALSE, 



OCT 247 
BCI 3,N0T. 



304 
310 
316 
336 



CONSTANT FOR .NOT, TEST 



OD 
OH 
ON 
0) 



•AIL CHARACTER TEST» 



000000 TSOO DAC •• 



TSOO 
EROO 
1»CH 



TEST (A) AGAINST TC 



RETURN 

TO ERROR TEST 

IMPROPER TERMINATING CHARACTfcH 



•)• INPUT OPfcKATOR* 



1473 
1474 
1475 
1476 
1477 
1478 
1479 



1480 



1481 
1482 



1483 
1484 
1485 
I486 
1487 
1488 
1489 
1490 
1491 
1492 
1493 
1494 
1495 
1496 
1497 
1496 
1499 
1500 
1501 
1502 
1503 
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1504 
1505 
1506 
1507 
1508 
1509 
1510 
1511 
1512 
1513 
1514 
1515 
1516 
1517 
1518 
1519 
1520 
1521 
1522 
1523 
1524 
1525 
1526 
1527 
1528 
1529 
1530 
1531 
1532 
1533 
1534 
1535 
1536 
1537 
1538 
1539 
1540 



02555 
02556 
02557 
02560 
02561 
02562 
02563 
02964 
02565 
02566 



02567 

02570 
02571 
02572 
02573 



02574 
02575 
02576 
02577 
02600 
02601 
02602 



000000 
02 00671 
10 02547 
10 01256 
10 01412 
02 00642 
07 00726 
04 00642 

140040 

01 02555 



IPOO DAC 
IDA 
JST 
JST 
JST 
LOA 
SUB 
STA 
CRA 
JMP» 



02 00752 
07 00607 
101040 
'0 01 04600 
01 04266 



000000 
02 00631 
07 00717 
100040 
'0 01 02574 
10 03116 
146723 



81 



LDA 

SUB 

SNZ 

JMP» 

JMP 



NROO DAC 
LDA 
SUB 
SZE 
JMP» 
JST 
BCI 



• • 

K4 

TSOO 

CHOO 

FNOO 

8 

K109 

B 

IPOO 



61 

K134 

TC 

A9T2 
Al 



• • 

AT 
KiOl 

NROO 
EROO 
1,MS 



TEST - ) 

INPUT CHAR 
FINISH OPERATOR 
8 s 8-16 



(A) 5 
RETURN 



COMMA OR C/R TST 

IF TC s SMCONVERTEO TO 17) 



GO TO SIOSW 

ELSE, GO TO C/R TEST 



NON»REL TEST 

IF AT « I GO TO ERROR- 
TEST 
RETURN 

ERROR TEST ROUTINE 
MULTIPLY DEFINED STATEMENT NUMBER 



•NO USAGE TEST* 



02603 
02604 



000000 NUOO DAC 
02 00655 LDA 



lU 



NO USAGE TEST 



1504 
1505 
1506 
1507 
1508 
1509 
1510 
1511 
1512 
1513 
1514 
1515 
1516 
1517 
1518 
1519 
1520 
1521 
1522 
1523 
1524 
1525 
1526 
1527 
1528 
1529 
1530 
1531 
1532 
1533 
1534 
1535 
1536 
1537 
1538 
1539 
1540 
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1541 02605 


101040 




SNZ 






IF lU NOT » 0, TO ERROR 


1542 02606 


-0 01 02603 




JMP# 


NUOO 




RETURN 


1543 02607 


10 03116 




JST 


EROO 




ERROR TEST 


1544 02610 


147325 




SC! 


1,NU 




NAME ALREADY BEING USED 


1545 














1546 














1547 








* JL M Jl 




L JL JL A J& JL 


^ ^ ^ r 

1548 


WW WW 

•NON 


^#w###w#w^ 

•CONSTANT 


► •• w# w 

Test* 


1549 








MM MM 


^MMMMMMMMM 


h MM MM M 


1550 


w w w w 


• WWWWWWWW1 


r W W W W W 


1551 02611 


000000 


NCOO 


DAC 


•« 




NON CONSTANT TEST 


1552 02612 


02 00573 




IDA 


NT 






1553 02613 


101040 




SNZ 






IF NT (MOT s 0, TO ERROR TEST 


1554 02614 


**0 01 02611 




JMP» 


NCOQ 




RETURN 


1555 02615 


10 03116 




JST 


ERUO 




ERROR TEST 


1556 02616 

1557 

1558 


147303 




BCI 


1»NC 




CONSTANT MUST BE PRESENT 














1559 








MM MM A 


KM£^MMMi^MM4 


lm.j^^.m.m.m.a» 


1560 


W W W W 1 

•NON 


tWWWwWWWW%wwwwwww 

SUBPROGRAM TEST* 


1561 








M M M M4 


^MMMMMMMMt 


MM M M M M 


1562 


W W W W 1 


PW^WWWWWwli 




1563 02617 


000000 


NSOO 


DAC 


• • 




NON SUBPROGRAM TEST 


1564 02620 


02 00655 




IDA 


lu 






1565 02621 


07 00717 




SUB 


KlOl 




IF lU 9 X, QO TO* 


1566 02622 


100040 




SZE 






ERROR TEST 


1567 02623 


-0 01 02617 




JMP* 


NSUO 




RETURN 


1568 02624 


10 03116 




JST 


EROO 




ERROR TEST 


1569 02625 


147323 




BCI 


1»NS 




SUBPROGRAM NAME NOT ALLOWfcU 


1570 




• 








" 


1571 




• 










1572 




• 








1573 




• 




*ARR 


TEST# 




1574 




• 
• 




M M M M M 


t J^ M M M M 




1575 


W W W W 1 


r • W * W9 




1576 02626 


000000 


ATOO 


DAC 


#* 




ARRAY TEST 


1577 02627 


02 00655 




LDA 


lU 







lb41 
1542 
1543 
1544 
1545 
1546 
1547 
1548 
1549 
1550 
1551 
1552 
1553 
1554 
1555 
1556 
1557 
1558 
1559 
1560 
1561 
1562 
1563 
1564 
1565 
1566 
1567 
1568 
1569 

1570 
1571 
1572 
1573 
1574 
1575 
15 76 
1577 
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1578 


02630 


07 00721 




SUB 


K103 


1579 


02631 


101040 




SN2 




1580 


02632 


-0 01 02626 




JMP« 


ATOO 


1581 


02633 


10 03116 




JST 


EROO 


1582 


02634 


140722 




BCI 


1,AR 


1583 












1584 












1565 












1586 










•INTEGER TEST* 


1587 












1588 












1589 


02635 


000000 


ITOO 


DAC 


• • 


1590 


02636 


02 00653 




IDA 


IM 


1591 


02637 


07 00717 




SUB 


KlOl 


1592 


02640 


101040 




SNZ 




1593 


02641 


-0 01 02635 




JMP» 


ITOO 


1594 


02642 


10 03116 




JST 


EROO 


1595 


02643 


144724 




BCI 


1»IT 


1596 






• 






1597 






• 






1598 


02644 


000000 


TAOO 


DAC 


• • 


1599 


02645 


Q 02 00631 




LDA 


AT 


1600 


02646 


07 00720 




SUB 


K102 


1601 


02647 


101040 




SNZ 




1602 


02650 


•0 01 02644 




JMP« 


TAOO 


1603 


0265X 


10 03116 




JST 


EROO 


1604 


02652 


147322 




BCI 


1,NR 


1605 












1606 












1607 












1608 












1609 












1610 












1611 












1612 












1613 


02653 


000000 


AD3 


DAC 


• • 


1614 


02654 


02 01475 




LDA 


TID 



IF lU * 3, GO TO 

RETURN 

ERROR TEST 

ITEM NOT AN ARRAY NAHE 



INTEGER TEST 

IF IM « 1, GO TO- 

ERROR ROUTINE, ELSE 

RETURN 

TO ERROR TEST 

ITEM NOT AN INTEGER 



STRING-ABS TEST 



ITEM NOT A RELATIVE VARIABLE 



ADD TnO THRBfe WORD INTEGERS, 



1578 
1579 
158U 
1581 
1582 

1583 
1584 
1585 
1586 
1587 
1568 
1589 
1590 
1591 
1592 
1593 
1594 
1595 
1596 
1597 
1598 
1599 
1600 
1601 
1602 
1603 
1604 
1605 
1606 
1607 
1608 
1609 
1610 
1611 
1612 
1613 
1614 
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1615 
1616 
1617 
1616 
1619 
1620 
1621 
1622 
1623 
1624 
1625 
1626 
1627 
1628 
1629 
1630 
1631 
1632 
1633 
1634 
1635 
1636 
1637 
1638 
1639 
1640 
1641 
1642 
1643 
1644 
1645 
1646 
1647 
1648 
1649 
1650 
1651 



02655 
02656 
02657 
02660 
02661 
02662 
02663 
02664 
02665 
02666 
02667 
02670 
02671 



02672 
02673 
02674 
02675 
02676 
02677 
02700 
02701 
02702 
02703 
02704 
02705 
02706 
02707 
02710 
02711 
02712 
02713 



06 
14032 
04 
02 
14121 
06 
14032 
04 
02 
14121 
06 
04 
•0 01 



02347 



01475 

01476 

6 

02350 



01476 

01477 

6 

02351 

01477 

02653 



000 
02 
04 
01 
000 
02 
04 
01 
00001 
000 
04 
02 
04 
14004 
14020 
0400 
lOOOQ 
06 



000 

00040 

00000 

02672 

000 

00041 

00000 

26 76 

6 

000 

02720 

00737 

02721 





77 

1 

02720 



ADD 
CSA 
STA 
LDA 
ACA 
ADD 
CSA 
STA 
LDA 
ACA 
ADD 
STA 
JMP» 



STXA 



STXI 



K153 
IHOO 



IMIO 



DAC 

LDA 

STA 

JMP» 

DAC 

LDA 

STA 

JMP# 

OCT 

DAC 

STA 

LDA 

STA 

CRA 

RCB 

LRL 

SRC 

ADD 



DNXl 

TID 
TID*1 

DNX1*1 

TID*1 
TID*2 

DNX1*2 

TID*2 

AD3 



«ASSIQN INDEX REGIST&R* 



• • 

A 

STXA 

• * 
I 



STXI 

16 

• • 

TilM 
K120 
T21M 



TIIM 



HULTIHLY A BY B 

8-l§ 



C BIT « 
LOW SIT OF 

C K T P TC Q - 



B INTO C 



1615 
1616 
1617 
1616 
1619 
1620 
1621 
1622 
1623 
1624 
1625 
1626 
1627 
1628 
1629 
1630 
1631 
1632 
1633 
1634 
1635 
1636 
1637 
1636 
1639 
1640 
1641 
1642 
1643 
1644 
1645 
1646 
1647 
1648 
1649 

1 ^ Sn 

1651 



HONEYWELL 



COMPUTER CONTROL DIVISION 



PROGRAM DOCUMENTATION 



» C210-001-6601 (FHTN) 



iC NO.1B046300U 



RfcV. D 



PAGt 



47 



1652 


02714 


12 02721 




IRS 


T2IM 


1653 


02715 


01 02711 




JMP 


IMIO 


1654 


02716 


0410 62 




LLL 


14 


1655 


02717 


-0 01 02703 




JMP# 


IHOO 


1656 


02720 


00 oodoo 


TlIM 


PZE 





1657 


02721 


00 00000 


T2IM 


PZE 





1658 






• 






1659 






• 






1660 


02722 


000000 


NFOO 


DAC 


#• 


1661 


02723 


02 02730 




LDA 


K80 


1662 


02724 


04 00570 




STA 


NAMF 


1663 


02725 


02 02731 




LDA 


K61 


1664 


02726 


04 00572 




STA 


NAMF+2 


1665 


02727 


-0 01 02722 




JMP# 


NFOO 


1666 


02730 


143244 


K80 


BCI 


l,Fi 


1667 


02731 


120240 


K81 


BCI 


1» 


1668 


02732 


000001 


KM92 


DEC 


1 


1669 


02733 


000002 




DEC 


2 


1670 


02734 


000001 




DEC 


1 


1671 


02735 


000000 




DEC 





1672 


02736 


000004 




DEC 


4 


1673 


02737 


000003 




DEC 


3 


1674 


02740 


000903 




OCT 


3 


1675 






« 






1676 






• 






1677 


02741 


000000 


BLNK 


DAC 


• • 


1678 


02742 


10 03007 




JST 


SAV 


1679 


02743 


•0 02 02741 




LDA* 


BLNK 


1680 


02744 


04 oodoo 




STA 


XR 


1681 


02745 . 


140040 




CPA 




1682 


02746 


1 04 00001 




STA 


1*1 


1683 


02747 


1 04 00002 




STA 


2*1 


1684 


02750 


1 04 00000 




STA 


0,1 


1685 


02751 


10 03016 




JST 


RST 


1686 


02752 


12 02741 




IRS 


BLNK 


1687 


02753 


-0 01 02741 




JMP* 


BLNK 


1688 






• 







RtTURN, RESULT IN A 



CONSTRUCT EXTERNAL NAME 
ENTRY FOR FORTRAN GENERATED 

SUBROUTINE CALLS, 



001 = INT 

010 s REA 

Oil » LOG 

101 » CPX 

110 s OBL 

111 » HOL 



CLEAR A 3/36 
AREA TO ZEROS 



CLEAR 3 WORDS OF MEMORY 
PARAMETER INPUT ADDRESS TO 



EXIT 



1652 
1653 
1654 
1655 
1656 
1657 
1658 
1659 
1660 
1661 
1662 
1663 
1664 
1665 
1666 
1667 
1668 
1669 
1670 
1671 
1672 
1673 
1674 
1675 
1676 
1677 
1678 
1679 
1680 
1681 
1682 
1663 
1684 
1685 
1666 
1687 
1688 
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1669 








• 






1690 


02754 





000000 


M0V3 


DAC 


• • 


1691 


02755 





02 01475 




LDA 


TID 


1692 


02756 





04 02347 




STA 


DNXl 


1693 


02757 





02 01476 




LDA 


TID*1 


1694 


02760 





04 02350 




STA 


DNXl*l 


1695 


02761 





02 01477 




LDA 


TID*2 


1696 


02762 





04 02351 




STA 


DNX1«2 


1697 


02763 


-0 


01 02754 




JMP« 


MQV3 


1698 








• 






1699 








• 






1700 








• 






1701 








• 






1702 


02764 





000000 


CIB 


DAC 


• • 


1703 


02765 





10 03007 




JST 


SAV 


1704 


02766 


•0 


02 02764 




LDA» 


CIB 


1705 


02767 





04 03006 




STA 


CIBZ 


1706 


02770 


140040 




CRA 




1707 


02771 





07 00721 




SUB 


K103 


1708 


02772 





04 00000 




STA 


XR 


1709 


02773 


1 


02 01504 


CIBB 


LDA 


IBUF*3,1 


1710 


02774 


•0 


07 03006 




SUB* 


CIBZ 


1711 


02775 


100040 




SZE 




1712 


02776 





01 03004 




JMP 


CIBO 


1713 


02777 





12 00000 




IRS 


X^ 


1714 


03000 





01 02773 




JMP 


CIBB 


1715 


03001 





12 02764 


CIBC 


IRS 


CIB 


1716 


03002 





10 03016 




JST 


RST 


1717 


03003 


•0 


01 02764 




JMP» 


CIB 


1718 


03004 





12 02764 


CIBO 


IRS 


CIB 


1719 


03005 





01 03001 




JMP 


CIBC 


1720 


03006 





000000 


CIBZ 


DAC 


• • 


1721 








« 






1722 








• 






1723 








* 






1 7?4 








• 






1725 


03007 





ooouoo 


SAV 


DAC 


** 



MOVE 3-WQRDS 
TO TEMO STORE 



COMPARE IBUF TO A CONSTANT 
SAVE INDEX 
♦DDR OF CON*3,0 



XR»-3 



RESTORE INDEX 



SAVE INDEX REGISTER 



1689 
1690 
1691 
1692 
1693 
1694 
16^5 
1696 
i697 
1698 
16^9 
1700 
1701 
1702 
1703 
1704 
1705 
1706 
1707 
1708 
1709 
1710 
1711 
1712 
1713 
1714 
1715 
1716 
1717 
1718 
1719 
1720 
1721 
1722 
1723 

4 trtA 

A* fc-» 

1725 
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1726 


03010 





04 03027 




STA 


SAVY 


1727 


03011 





02 ooodo 




LDA 


XR 


1728 


03012 


-0 


04 03030 




STA* 


SAV9 


1729 


03013 





12 03030 




IRS 


SAV9 


1730 


03014 





02 03027 




LDA 


SAVY 


1731 


03015 


-0 


01 03007 




JMP» 


SAV 


1732 


03016 





000000 


RST 


DAC 


• • 


1733 


03017 





04 03027 




STA 


SAVY 


1734 


03020 





02 03030 




LDA 


SAV9 


1735 


03021 





07 00717 




SU8 


KlOl 


1736 


03022 





04 03030 




STA 


SAV9 


1737 


03023 


•0 


02 03030 




LDA* 


SAV9 


1738 


03024 





04 OOOOO 




STA 


XR 


1739 


03025 





02 03027 




LDA 


SAVY 


1740 


03026 


•0 


01 03016 




jmp* 


RST 


1741 


03027 





00 OOOOO 


SAVY 


PZE 





1742 


03030 





003031 


SAV9 


DAC 


SAVX 


1743 


03031 






SAVX 


BSS 


20 


1744 








• 






1745 








• 






1746 


03055 





000000 


PACK 


DAC 


• • 


1747 


030^6 





04 03113 




STA 


PAK7 


1748 


03057 





02 00575 




LDA 


NTID 


1749 


03060 


101040 


PAKl 


SNZ 




1750 


03061 





01 03103 




JMP 


PAK4 


1751 


03062 


0400 77 




LRL 


1 


1752 


03063 





06 03115 




ADD 


PAK9 


1753 


03064 





04 03114 




STA 


PAK8 


1754 


03065 





02 03113 




LDA 


PAK7 


1755 


03066 


000201 




lAB 




1756 


03067 


100400 




SPL 




1757 


03070 





01 03076 




JMP 


PAK3 


1758 


03071 


0410 50 




LLL 


24 


1759 


03072 





06 00673 




ADD 


K8 


1760 


03073 


-0 


04 03114 


PAK2 


STA* 


PAK8 


1761 


03074 





12 00$75 




IRS 


NTID 


1762 


03075 


•0 


01 03055 




JMP* 


PACK 



STACKfcU IN PUSH DOWN LIST 



RfcSTORE: INDEX REGISTER 
UNSTACK PUSH DOWN LIST 



IS INITIATED BY A092 

PLACE CHARACTER IN A 

INTO ID • UPDATE 3 WORDS OF 

ID 



1726 
1727 
1728 
1729 
1730 
1731 
1732 
1733 
1734 
1735 
1736 
1737 
1738 
1739 
1740 
1741 
1742 
1743 
1744 
1745 
1746 
1747 
1748 
1749 
1750 
1751 
1752 
1753 
1754 
1755 
1756 
1^57 
1758 
1759 
1760 
1761 
1762 
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1763 03076 


0410 


70 


PAK3 


ILL 


8 


1763 


1764 03077 


•0 


02 


03114 




IDA* 


PAK8 


1764 


1765 03100 


0404 


70 




LGR 


8 


1765 


1766 03101 


0410 


70 




Lit 


8 


1766 


1767 03102 





01 


03073 




JMP 


PAK2 


1767 


1768 03103 





02 


03112 


PAK4 


LDA 


PAK6 


1768 


1769 03104 





04 


01475 




STA 


TID 


1769 


1770 03105 





04 


01476 




STA 


TID*1 


1770 


1771 03106 





04 


01477 




STA 


TID*2 


1771 


1772 03107 





04 


01500 




STA 


TID*3 


1772 


1773 03110 





02 


00575 




LDA 


NtiD 


1773 


1774 03111 





01 


03062 




JMP 


PAkl«2 


1774 


1775 03112 


120240 


PAK6 


BCI 


1* 


1775 


1776 03113 





000000 


PAK7 


DAC 


• • 


1776 


1777 03114 





000000 


PAK8 


DAC 


• • 


1777 


1778 03115 





001475 


PAK9 


DAC 


TlD 


1778 


1779 














1779 


1780 
1781 
1782 














1780 
1781 
1782 












•ERROR ROUTINE* 


1783 














1783 


1784 














1784 


1785 03116 





000000 


£R00 


DAC 


*• ERROR ROUTINE 


1785 


1786 03117 





02 


0303U 




IDA 


SAV9 


1786 


1787 03120 





04 


03031 




STA 


SAVX 


i787 


1788 03121 





02 


03196 




LDA 


ER93 "-SS 


1788 


1789 03122 





04 


ooodo 




STA 


SET INDEX 


1789 


1790 03123 





02 


03155 




LDA 


ER91 (♦)(*) 


1790 


1791 03124 


1 


04 


14745 




STA 


PRI*35,1 SET •• INTO PrtINT BUFFER 


1791 


1792 03125 





12 


00000 




IRS 


SET COMPLETE PRINT BUFFER TO *♦*•*•»• 


1792 


1793 03126 





01 


03124 




JMP 


• •2 


1793 


1794 03127 





02 


00662 




LDA 


CC 


1794 


1795 03130 


0405 


77 




ARS 


1 CC s CC/2 


1795 


1796 03131 





07 


00717 




SUB 


KlOl »1 


1796 


1797 03132 


100400 




SPL 




1797 


1 7oa n ti ■«■« 


^ AnnA n 




n a i 




« 4« Ma 


A r ' w w Vd> w 


* ^v w-i 


w 




y^ nm 




JL/ TO 


1799 03134 





04 


00000 




STA 


XR 


1799 
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1800 


03135 


02 00660 


LDA 


EBAR 


1801 


03136 


100400 


SPL 




1802 


03137 


01 03142 


JMP 


• ♦3 


1803 


03140 


02 00761 


IDA 


KAEQ 


1804 


03141 


1 04 14703 


STA 


PRI*1»1 


1805 


03142 


*0 02 03116 


UDA* 


EROO 


1806 


03143 


1 04 14702 


STA 


PRI,1 


1807 


03144 


10 00000 


CALL 


F4SSYM 


1808 


03145 


014702 


DAC 


PR I 


1809 


03146 


10 14301 


JST 


PRSP 


1810 


03147 


02 00607 


LDA 


TC 


1811 


03150 


11 00756 ER20 


CAS 


CRET 


1812 


03151 


01 03153 


JMP 


• ♦2 


1813 


03152 


01 04353 


JMP 


C7 


1814 


03153 


10 012^6 


JST 


CHOO 


1815 


03154 


01 03150 


JMP 


ER20 


1816 


03155 


125252 ER91 


BCI 


1»*» 


1817 


03156 


177735 ER93 


OCT 


177735 


1818 




• 






1819 




• 






1820 


03157 


000000 SRT 


DAC 


• ft 


1821 


03160 


10 03007 


JST 


SAV 


1822 


03161 


«0 02 03157 


LDA» 


SRT 


1823 


03162 


04 00000 


STA 


XR 


1824 


03163 


1 02 00000 


LDA 


04 


1825 


03164 


000201 


lAB 




1826 


03165 


1 02 00001 


LDA 


1,1 


1827 


03166 


0401 77 


LRS 


1 


1828 


03167 


0414 77 


L6L 


1 


1829 


03170 


000201 


IA8 




1830 


03171 


1 04 00000 


STA 


0.1 


1831 


03172 


1 02 00002 


LDA 


2.1 


1832 


03173 


0401 77 


LRS 


I 


1833 


03174 


1 04 00002 


STA 


2.1 


1834 


03175 


000201 


lAB 




1835 


03176 


1 04 OOUOl 


STA 


1.1 


1836 


03177 


10 03016 


JST 


RST 



(NtCiATIVE IF NOT WITHIN AN EQUlVALENCt ST,) 
SKIP IF PROCESSING AN EQUIVALENCE STATEMENT 

a'142721 («(E)(Q) > 



SET ERROR TYPE LETTERS INTO THE BUFFER 
PRINT THE BUFFER 

SET PRINT BUFFER TO SPACES 

INPUT CHARACTERS UNTIL C/K 

GO TO STATEMENT INPUT 



• 35 



SHIFT RIGHT ONE PLACE 
TRIPLE PRECISION 



1600 
1601 
1802 
1603 
1804 

1805 
1806 
1607 
1606 
1609 
1810 
1611 
1612 
1813 
1814 
1815 
1616^ 
1817 
1818 
1819 
1820 
1621 
1622 
1623 
1624 
1625 
1626 
1627 
1826 
1629 
1830 
1631 
1832 
1833 
1634 
1835 
1836 
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1837 


03200 


12 03157 


IRS 


SRT 




1838 


03201 


-0 01 03157 


JMP» 


SRT 




1639 




* 








1840 




• 








1841 


03202 


000000 SFT 


DAC 


• • 




1842 


03203 


10 03007 


JST 


SAV 




1843 


03204 


-0 02 03202 


LDA* 


SFT 




1844 


03205 


04 00000 


STA 


XR' 




1845 


03206 


1 02 00000 


IDA 


Oil 




1846 


03207 


000201 


lAB 






1847 


03210 


1 02 00001 


LDA 


111 




1843 


03211 


0411 77 


US 


1 




1849 


03212 


140320 


CSA 






1850 


03213 


1 04 00001 


STA 


la 




1851 


03214 


000201 


lAB 






1852 


03215 


1 04 00000 


STA 


0*1 




1853 


03216 


141216 


ACA 






1854 


03217 


0401 77 


LRS 


1 




1855 


03220 


1 02 00002 


LDA 


2a 




1856 


03221 


0411 77 


ULS 


1 




1857 


03222 


140320 


CSA 






1858 


03223 


1 04 00002 


STA 


2.1 




1859 


03224 


10 03016 


JST 


RST 




1860 


03225 


12 03202 


IRS 


SFT 




1861 


03226 


-0 01 03202 


JMP» 


SFT 




1862 




• 








1863 


03227 


000000 LIST 


DAC 


• • 




1864 


03230 


10 14301 


JST 


PRSP 




1865 


03231 


100010 


SR2 






1866 


03232 


01 03235 


J MP 


#♦3 




1867 


03233 


10 00000 


CAUL 


F4SSYM 




1868 


03234 


014702 


DAC 


PAl 




1869 


03235 


10 00000 


CALL 


r4SSYH 




1870 


03236 


001155 


DAC 


CI 




1871 
1672 


03237 


-0 01 03227 

• 


JMP» 


LIST 

MM M.M Mkm » 




1873 




• 




•ASSIGN 


ITEh# 



TRIPLt PRECISION 
SHIFT LEFT ONE PLACE 



PRINT BLANK LINE 

HRINT SOURCE INPUT LINE 



1837 
1838 
1839 
1840 
1841 
1842 
1843 
1844 
1645 
1646 
1647 
1648 
1649 
1850 
1851 
1852 
1853 
1854 
1855 
1856 
1857 
1658 
1859 
1860 
1861 
1862 
1863 
1864 
1865 
1866 
1867 
1866 
1869 
1870 
1871 

1 tt70 

1873 
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1874 








••• 


1875 








CHECKS 


1876 








F 


1877 










1878 










1879 










1880 










1881 










1882 










1883 


03240 


00 00000 1 


rOAS PZE 





1884 


03241 


000000 i 


^SOO DAC 


• • 


1885 


03242 


140040 


CRA 




1886 


03243 


04 00040 


STA 


A 


1887 


03244 


10 02672 AS04 JST 


STXA 


1886 


03245 


10 04062 


JST 


NXT 


1889 


03246 


01 03355 


JMP 


AS30 


1890 


03247 


02 00573 


LDA 


NT 


1891 


03250 


07 00617 


SUB 


NTA 


1892 


03251 


100040 


SZE 




1893 


03252 


01 03244 


JMP 


AS04 


1894 


03253 


02 01475 


LDA 


TID 


1895 


03254 


07 03634 


SU8 


TIDA 


1896 


03255 


100040 


SZE 




1897 


03256 


01 03244 


JMP 


AS04 


1898 


03257 


02 01476 


LDA 


TID*1 


1899 


03260 


07 03635 


SUB 


TIDA+l 


1900 


03261 


100040 


SZE 




1901 


03262 


01 03244 


JMP 


AS04 


1902 


03263 


02 01477 


LDA 


TID + 2 


1903 


03264 


07 03636 


SUB 


TIDA*2 


1904 


03265 


100040 


SZE 




1905 


03266 


01 03244 


JMP 


AS04 


1906 


03267 


02 00573 


LDA 


NT 


1907 


03270 


101040 


SNZ 




1908 


03271 


01 03331 


JMP 


AS16 


1909 


03272 


02 00653 ASIO LDA 


IM 


1910 


03273 


07 00621 


SUB 


IMA 



ASSIGNMENT AREA OF DATA POOL (AO TO ABAH) 
FOR ITEM UEFINEU bY ID, IM, lU, ETC, 
IF FOUND, EXIT WITH POINTER AND 

ASSIGNMENTS DATA SET, OTHERWISE 
ASSIGN THE ITEM. 



A > A (0) 

GET NfcXT ENTRY 

AT END, GO TO AS30 

NT « NT(A) 

NO, GO TO AS04 



TID s TID(A) 



NO. GO TO AS04 



IF NT (A) .NE, 0» 

GO TO ASIO 

GO TO AS16 (4) 

IF IM ,NE. IH (A), 

GO TO AS04 (1) 



1874 
1875 
1876 
1877 
1878 
1879 
1880 
1881 
1682 
1883 
1864 
1665 
1686 
1887 
1868 
1889 
1890 
1891 
1892 
1893 
1894 
1895 
1896 
1897 
1898 
1899 
1900 
1901 
1902 
1903 
1904 
1905 
1906 
1907 
1908 
1909 
1910 
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1911 


03274 


100040 


SZE 




1912 


03275 


01 03244 


JHP 


AS04 


1913 


03276 


02 006t>5 


IDA 


lU 


1914 


03277 


101040 


SNZ 




1915 


03300 


01 03244 


JMP 


AS04 


1916 


03301 


07 00623 


SUB 


lUA 


1917 


03302 


100040 


SZE 




1918 


03303 


01 03244 


JMP 


AS04 


1919 


03304 


02 00653 


LDA 


IM 


1920 


03305 


07 00723 


SUB 


K105 


1921 


03306 


100040 


SZE 




1922 


03307 


01 03331 


JMP 


AS16 


1923 


03310 


10 04062 


JST 


NXT 


1924 


03311 


01 03355 


JMP 


AS30 


1925 


03312 


02 03634 


LDA 


TIDA 


1926 


03313 


07 03637 


SUB 


TIDB 


1927 


03314 


100040 


SZE 




1928 


03315 


01 03244 


JMP 


AS04 


1929 


03316 


02 03635 


LOA 


TIDA*1 


1930 


03317 


07 03640 


SUB 


TIDB*1 


1931 


03320 


100040 


SZE 




1932 


03321 


01 03244 


JMP 


AS04 


1933 


03322 


02 03636 


LDA 


TIDA*2 


1934 


03323 


07 03641 


SUB 


TIDB*2 


1935 


03324 


100040 


SZE 




1936 


03325 


01 03244 


JMP 


AS04 


1937 


03326 


02 00040 


LDA 


A 


1938 


03327 


07 00723 


SUB 


K105 


1939 


03330 


04 00040 


STA 


A 


1940 


03331 


02 00623 AS16 


LDA 


lUA 


1941 


03332 


06 00574 


ADD 


NTF 


1942 


03333 


100040 


SZE 




1943 


03334 


01 03345 


JMP 


ASia 


1944 


03335 


02 00051 


LDA 


SPF 


1945 


03336 


101040 


SNZ 




1946 


03337 


01 03345 


JMP 


ASIA 


1947 


03340 


02 00607 


LDA 


TC*" 



If lU s 0, 

OR NOT EQUAL lU (A) 

GO TO AS04 (1) 



ELSfc. 

GO TO AS16 (4) 

ELSE, liET NEXT ENTRY 

IF ID (A) B TlDB 
GO TO AS16 (4) 
ELSE, GO TO AS04 (1) 



IF lU (A) .NE, 



GO TO AS18 (5) 

IF SPF X 0, GO TO AS18 (5) 



IF TC s < 



1911 

1912 

■^ y jL I. J 

1914 

1915 

1916 

1917 

1918 

1919 

1920 

1921 

1922 

1923 

1924 

1925 

1926 

1927 

1928 

1929 

1930 

1931 

1932 

1933 

1934 

1935 

1936 

1937 

1938 

1939 

1940 

1941 

1942 

1943 

1944 

1945 

1946 

1947 
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1948 


03341 


07 


00702 


SUB 


K17 


1949 


03342 


100040 


SZE 




1950 


03343 


01 


03353 


JMP 


AS19 


1951 


03344 


10 


03465 


JST 


TGOO 


1952 


03345 


140040 


AS16 CRA 




1953 


03346 


04 


00574 


STA 


NTF 


1954 


03347 


10 


03656 


JST 


FAOO 


1955 


03350 


10 


02672 


JST 


STXA 


1956 


03351 


02 


00653 


LDA 


IM 


1957 


03352 


•0 01 


03241 


JMP« 


ASOO 


1958 


03353 


10 


03642 


AS19 JST 


TVOO 


1959 


03354 


01 


03345 


JMP 


AS18 


1960 


03355 


10 


04i42 


AS30 JST 


BUD 


1961 


03356 


02 


00573 


LDA 


NT 


1962 


03357 


1U0040 


SZE 




1963 


03360 


01 


03365 


JMP 


AS32 


1964 


03361 


02 


00655 


LDA 


lU 


1965 


03362 


07 


00720 


SUB 


K102 


1966 


03363 


100040 


SZE 




1967 


03364 


01 


03407 


JMP 


AS40 


1968 


03365 


02 


00653 


AS32 LDA 


IM 


1969 


03366 


07 


00723 


SUB 


K105 


1970 


03367 


100040 


SZE 




1971 


03370 


01 


034U7 


JMP 


AS40 


1972 


03371 


04 


00655 


STA 


lU 


1973 


03372 


02 


03637 


LDA 


TIDB 


1974 


03373 


04 


01475 


STA 


TID 


1975 


03374 


02 


03640 


LDA 


TIDB*1 


1976 


03375 


04 


01476 


STA 


TID*1 


1977 


03376 


02 


03641 


LDA 


TIDB+2 


1978 


03377 


04 


01477 


STA 


TID*2 


1979 


03400 


02 


00040 


LDA 


A 


1980 


03401 


06 


00723 


ADD 


K1U5 


1981 


03402 


04 


00040 


STA 


A 


1982 


03403 


10 


04142 


JST 


BUD 


1983 


03404 


02 


00040 


LDA 


A 


1984 


03405 


07 


00723 


SUB 


K105 



TAG SUBPROGRAM 
SET NTF TO 

StT NTF TO Q 

GO TO FETCH ASSIGNS 



RETURN 

TAG VARIABLE 

BUILD ASSIGNMENT ENTRY 
IF NT » 1 



OR IV s VAR, 



AMD 
IF IM 



» CPX 



MOVE 15T PART OF 
COMPLEX ENTRY TO 
TID AND BUILD 
ASSIGNMENT ENTRY 



HESTURk A 



1946 
1949 
1950 
1951 
1952 
1953 
1954 
1955 
1956 
1957 
1958 
1959 
1960 
1961 
1962 
1963 
1964 
1965 
1966 
1967 
1968 
1969 
1970 
1971 
1972 
1973 
1974 
1975 
1976 
1977 
1978 
1979 
1980 
1981 
1982 
1983 
1984 
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1985 034Q6 


04 00040 


STA 


A 


1986 03407 


02 000^4 


AS40 LDA 


A6AR 


1987 03410 


07 00040 


sus 


A 


1988 03411 


06 00723 


ADO 


K105 


1989 03412 


140407 


TCA 




1990 03413 


04 03240 


STA 


TOAS 


1991 03414 


140407 


TCA 




1992 03415 


06 00661 


ADD 


DO 


1993 03416 


04 00661 


STA 


DO 


1994 03417 


02 00652 


LDA 


IFLG 


1995 03420 


101040 


SNZ 




1996 03421 


01 03460 


JMP 


AS60 


1997 03422 


02 00041 


LDA 


I 


1998 03423 


07 03240 


SUB 


TOAS 


1999 03424 


04 00041 


STA 


I 


2000 03425 


141206 


ADA 




2001 03426 


11 00044 


AS41 CAS 


L 


2002 03427 


101000 


NOP 




2003 03430 


01 03456 


JMP 


AS50 


2004 03431 


06 00104 


ADD 


'104 


2005 03432 


04 03463 


STA 


AS91 


2006 03433 


06 03240 


ADD 


TOAS 


2007 03434 


04 03464 


STA 


AS92 


2008 03435 


07 03240 


SUB 


TOAS 


2009 03436 


07 00104 


SUB 


♦104 


2010 03437 


07 00661 


SUB 


DO 


2011 03440 


101040 


SNZ 




2012 03441 


01 03331 


JMP 


AS16 


2013 03442 


140407 


TCA 




2014 03443 


04 03240 


STA 


TOAS 


2015 03444 


140040 


CRA 




2016 03445 


04 00000 


STA 


XH 


2017 03446 


-0 02 03464 


AS46 LDA» 


AS92 


2018 03447 


-0 04 03463 


STA* 


AS91 


2019 03450 


02 00000 


LDA 





2020 03451 


07 00717 


SUB 


KlQl 


2021 03452 


04 00000 


STA 


o'^" 



TU s -(ABAR-A+5) 

GIVING NO. OF WORDS TO MOVt TABLES UP 



COaUO*T0 

IF IFLG » Oi THERE IS NO EXPRESSION TABLE 
60 TO AS60 

1=1- T0(T0 IS NEGATIVE) 

CHECK AGAINST BOTTOM OF TRIAD TABLE 

»DP,1 

AS91 s NEW TABLE TOP 

AS92 

COMPUTE SIZE OF FLOATING TABLES 

■DP,1 

IF ZERO, ASSIGN TABLE ONLY, 



fcND"5 

END (MOVE TABLES UP) 

•> -4 

- J. 

REDUCE INDEX 



1985 

1986 

1987 

1988 

1909 

1990 

1991 

1992 

1995 

1994 

1995 

1996 

1997 

1998 

1999 

2000 

2U01 

2002 

2003 

2004 

2005 

2006 

2007 

2008 

2009 

2010 

2011 

2012 

2013 

2014 

2015 

2016 

2017 

2018 

2019 

2020 

2021 
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2022 


03453 





12 


03240 




IRS 


TOAS 




s NO, OF WORDS TO MQVE 


2023 


03454 





01 


03446 




JMP 


AS46 






2024 


03455 





01 


03331 




JMP 


ASi6 






2025 


03456 





10 


03116 


AS50 


JST 


EROO 






2026 


03457 


146717 




BCI 


1,M0 




UATA POOU OVERFLOW 


2027 


03460 





02 


00661 


AS60 


UOA 


DO 






2026 


03461 





06 


00057 




ADD 


D 






2029 


03462 





01 


03426 




JMP 


AS41 






2030 


03463 





000000 


AS91 


DAC 









2031 


03464 





000000 


AS92 


DAC 


• • 






2032 










• 










2033 










• 










2034 










• 










2035 










• 










2036 










» 






2037 










« 




•TAG SUBPROGRAM* 


2036 










« 




••••••1 


»••• 




2039 










ft 




TAG ITEM i 


kS A 


SUBPROGRAM. CHECK TO SEE IF 


2040 










• 




NAME 


ts 


IN IMPLICIT MODE TaBLE AND SET 


2041 










• 




MODE 


ACCORDINGIY 


2042 










• 










2043 


03465 





000000 


TGOO 


DAC 


*• 






2044 


03466 





02 


00655 




IDA 


lU 






2045 


03467 





07 


00717 




SUB 


KlOl 




IF lU ■ SUB 


2046 


03470 


101040 




SNZ 








2047 


03471 


•0 


01 


03465 




JHP# 


TGOO 




RETURN, ELSE 


2046 


03472 





10 


02603 




JST 


NUOO 




NO - USAGE TEST 


2049 


03473 





02 


03534 




UDA 


TG22 




»-21 


2050 


03474 





04 


00000 




STA 







SET INDEX 


2051 


03475 





02 


01476 


TG04 


LDA 


ID*1 




CHARACTERS 3 AND 4 


2052 


03476 


1 


11 


03607 




CAS 


TGT2*21,1 




IMPLICIT MODE 3UBR, NAME TABLE 


2053 


03477 





01 


03501 




JMP 


• ♦2 






2054 


03500 





01 


03514 




JMP 


TGIO 






2055 


03501 





12 


ooooo 


TG06 


IRS 









2056 


03502 





01 


03475 




JMP 


TG04 




NOT DONE WITH TABLE 


2057 


03503 





02 


00717 


TG08 


LDA 


KlOl 




■1 (lUaSUBR.) 


2058 


03504 





04 


00655 




STA 


lU 







2022 
2023 
2024 
2025 
2026 

2027 
2026 
2029 
2030 
2031 
2032 
2033 
2034 
2035 
2036 
2037 
2038 
2039 
2040 
2041 
2042 
2043 
2044 
2045 
2046 
2047 
2048 
2049 
2050 
2051 
2052 
2053 
2054 
2055 
2056 
2057 
2056 
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2Q5V 
IU(A} s SUB 2060 

2061 
2062 
2063 
2064 
HETUHN 2065 

2066 
CHARACTERS 1 AND 2 2067 

«»37777 2068 

•»140000 2069 

2070 

2071 

CONTINUE SEARCH 2072 

CHARACTERS 5 AND 6 2073 

2074 

2075 

CONTINUE SEARCH 2076 

2077 

2078 

«7 («3 IF CPXi 4 IF DBL) 2079 

«2 (s5 IF CPX, 6 IF D&i) 2080 

DEFINE IM 2081 

2082 

2083 

•-21 2084 

2085 
2086 
2087 



2059 


03505 


10 02672 


JST 


STXA 


2060 


03506 


1 02 15401 


LDA 


DP*1,1 


2061 


03507 


0414 77 


LGL 


1 


2062 


03510 


140500 


SSM 




2063 


03511 


0404 77 


LQR 


1 


2064 


03512 


1 04 15401 


STA 


DP*1,1 


2065 


03513 


*0 01 03465 


JMP» 


TGOO 


2066 




• 






2067 


03514 


02 01475 TGIO 


LDA 


ID 


2068 


03515 


03 00730 


ANA 


Kill 


2069 


03516 


06 00760 


ADD 


MBIT 


2070 


03517 


1 07 03562 


SUB 


TGT1>21,1 


2071 


03520 


100040 


SZE 




2072 


03521 


01 03501 


JMP 


TG06 


2073 


03522 


02 01477 


LDA 


ID*2 


2074 


03523 


1 07 03634 


SUB 


TGT3*21,1 


2075 


03524 


100040 


SZE 




2076 


03525 


01 03501 


JMP 


TG06 


2077 


03526 


1 02 03562 


LDA 


TGTl*2l,l 


2078 


03527 


0404 70 


LQR 


8 


2079 


03530 


03 00725 


ANA 


K107 


2080 


03531 


06 00720 


ADD 


K102 


2081 


03532 


10 04026 


JST 


DM00 


2082 


03533 


01 03503 


JMP 


TG08 


2083 




• 






2084 


03534 


177753 TQ22 


OCT 


177753 


2085 




• 






2086 


03535 


», , , 




. . IMPLICIT 


2087 


142305 TGTl 


*BCl" 


6,DECEDLC 




03536 


141705 








03537 


142314 








03540 


141714 








03541 


142314 








03542 


142323 






2088 


03543 

n TC A A 


141723 

4 A n 1 n ^ 


8CI 


6,CSDCCCD 



2088 



03545 141703 
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03546 


142323 




03547 


141723 




03550 


142301 


2089 


03551 


142301 




03552 


142315 




03553 


142301 




03554 


142315 




03555 


142315 




03556 


142323 


2090 


03557 


142302 




03560 


141715 




03561 


141717 


2091 


03562 


154320 




03563 


154320 




03564 


147707 




03565 


147707 




03566 


147707 




03567 


144716 


2092 


03570 


144716 




03571 


147723 




03572 


147723 




03573 


150722 




03574 


150722 




03575 


152301 


2093 


03576 


152301 




35 77 


147704 




03600 


141323 




03601 


140730 




03602 


144716 




03603 


144707 


2094 


03604 


146305 




03605 


150314 




03606 


147312 


2095 


03607 


120240 




03610 


120240 




03611 


120240 




03612 


120240 



BCI 6#0ADHDA0M0HDS 



2089 



BCI SiDBCHCO 
TGT2 BCI 6,XPXP0G0G0GIN 



2090 
2091 



BCI 6,IN0S0S0RQRTA 



2092 



BCI 6,TA0DBSAXINIG 



2093 



BCI 3,LEPLNJ 



TGT3 BCI 6, 



10 



2094 
2095 



riOXSi JiiYWiJiLL 



LUmru icK 
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2096 



2097 



2096 



03613 
03614 
Q3615 
03616 
03617 
03620 
03621 
03622 
03623 
03624 
03629 

03627 
03630 
03631 
03632 
03633 



2099 
2100 
2101 
2102 
2103 
2104 
2105 
2106 
2107 
2108 
2109 
2110 
2111 
2112 
2113 
2114 
2115 
2116 
2117 
2118 



03634 
03637 



03642 
03643 
03644 
03645 
03646 
03647 
03650 
03651 
03652 
03653 
03654 
03655 



130660 
120240 
120240 
120240 
120240 
152240 
152240 
147240 
147262 
120240 
120240 

130640 
147240 
120240 
154240 
143640 



3CI 6 



OOOOOQ 
02 00655 
07 00720 
101040 

01 03642 
10 02603 
10 02672 

02 19401 

03 00730 
140500 

1 04 15401 
01 03642 



TIDA BSS 
tiDB BSS 

• 

TVOO DAC 
UDA 
SUB 
SNZ 
JMP* 
JST 
JST 
LDA 
ANA 
SSM 
STA 
JMP» 



T T N / 



BCI 6,N2 1 1 N / 



BCI 3f X 6 



3 

3 

TVOO 
• • 

lu 

K102 

TVOO 

NUOO 

STXA 

DP*1.1 

Kill 

DP*1»1 
TVOO 



TAG VARIABLE 



IF lU « 'VARS 



RfeTURN 
ELSE, NO 



lU (A) 



RETURN 



USAGE TEST 



VAR 



2096 



2097 



2098 



2099 
2100 
2101 
2102 
2103 
2104 
2105 
2106 
2107 
2106 
2109 
2110 
2111 
2112 
2113 
2114 
2115 
2116 

'3 4 4-9 

2118 
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2119 
2120 
2121 
2122 
2123 
2124 
2125 
2126 
2127 
2126 
2129 
2130 
2131 
2132 
2133 
2134 
2135 
2136 
2i37 
2138 
2139 
2140 
2141 
2142 
2143 
2144 
2145 
2146 
2147 
2148 
2149 
2150 
2151 
2152 
2153 
2154 
2155 



03656 

03657 

03660 

03661 

03662 

03663 

03664 

03665 

03666 

03667 

03670 

03671 

03672 

03673 

03674 

03675 

03676 

03677 

O3700 

03701 

03702 

03703 

03704 

03705 

03706 

03707 

03710 

03711 



000000 

10 02672 

1 02 15400 
0400 61 

04 00573 
140040 
0410 75 
04 00631 
140040 
0410 75 



04 

04 

1 02 
04 
0415 
06 
04 

10 

1 02 
0400 
04 
07 



00653 

00000 

02731 

00633 

76 

00633 

00612 

02672 

15401 

62 

0U655 

00721 



101040 
01 03712 
140040 
0410 62 
04 00630 
01 03656 



* 
TAOO 



DAC 
JST 
LDA 
LRU 
STA 
CRA 
ILL 
STA 
CRA 
LIL 
STA 
STA 
LDA 
STA 
ALS 
ADO 
STA 
JST 
LDA 
LRL 
STA 

sue 

SNZ 
JMP 

CRA 

ILL 
STA 
JMP» 



•FETCH ASSIGN* 

SET ASSIGNMENT DATA FROM ASSIGN (EXCEPT 
EXPAND DIMENSION INFO IF ARRAY 



• • 

STXA 
DP,1 
15 

NT 



ID) 



3 

AT 

3 

IM 



KM92-1,1 

DO 

2 

00 

X 

STXA 

DP*1,1 

14 

lU 

K103 

FAIO 

14 
AF 
FAOO 



NT«NT<A) 



AT«AT(A) 
IM » IM(A) 



UO » NUMBER OF WORDS 



X s POINTER TO CONSTANT NUMBEH OF WORDS 



IF lU NOT 'ARRt 



AF s aF(A) 



2119 

2120 

2121 

2122 

2123 

2124 

2125 

2126 

2127 

2128 

2129 

2130 

2131 

2132 

2133 

2134 

2135 

2136 

2137 

2138 

2139 

2140 

2141 

2142 

2143 

2144 

2145 

2146 

2147 

2148 

2149 

2150 

2151 

2152 

2153 

2154 

2155 
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62 



2156 


03712 


0410 


62 FAlO 


LUL 


14 


2157 


03713 





04 


00000 


STA 





2158 


03714 


1 


02 


15404 


LDA 


DP*4,1 


2159 


03715 





04 


00613 


STA 


XI 


2160 


03716 


1 


02 


15403 


LDA 


DP*3,1 


2161 


03717 





04 


00614 


STA 


X2 


2162 


03720 


1 


02 


15402 


LDA 


DP*2fl 


2163 


03721 





04 


00615 


STA 


X3 


2164 


03722 


1 


02 


15401 


LDA 


DP*ia 


2165 


03723 





03 


00730 


ANA 


Kill 


2166 


03724 





04 


00630 


STA 


AF 


2167 


03725 


1 


02 


15400 


LDA 


DP,1 


2168 


03726 


0404 


67 


LGR 


9 


2169 


03727 





03 


00725 


ANA 


K107 


2170 


03730 





04 


00571 


STA 


ND 


2171 


03731 





04 


ooodo 


STA 





2172 


03732 





02 


00717 


LDA 


KlOl 


2173 


03733 





04 


00635 


STA 


D2 


2174 


03734 





04 


00636 


STA 


D3 


2175 


03735 


-1 


01 


03764 


JMP* 


FA91-1,1 


2176 


03736 





02 


00615 FA22 


LDA 


X3 


2177 


03737 





04 


00000 


STA 


XR 


2178 


03740 





10 


03755 


JST 


FA40 


2179 


03741 





04 


00636 


STA 


D3 


2180 


03742 





02 


00614 FA24 


LDA 


X2 


2181 


03743 





04 


00000 


STA 


XR 


2182 


03744 





10 


03755 


JST 


FA40 


2183 


03745 





04 


00635 


STA 


D2 


2184 


03746 





02 


00613 rA26 


LDA 


XI 


2185 


03747 





04 


00000 


STA 


XR 


2186 


03750 





10 


03755 


JST 


FA40 


2187 


03751 





04 


00634 


STA 


Dl~ 


2188 


03752 





10 


02672 


JST 


StXA 


2189 


03753 





02 


00630 


LDA 


AF 


2190 


03754 


-0 


01 


03656 


JMP« 


FAOO 


2191 


n ■v t m ts 




^ r% f\ n r\ n r^ a m ^ 


DAC 


W w 


2192 


03756 


1 


02 


15400 


LDA 


DP,1 



INDEX « 6F(A) 

PQINTfcR or DIMENSION 1 

POINTtR OF DIMENSION 2 

POINTbH OF DIMENSION 3 

a'37777 

AF = GF(GF(A) ) 

»7 

NUMBER OF DIMENSIONS 

= 1 



FETCH 3RD DIMENSION SIZE 



STORE D3 



D2 s 2ND DIMENSION SIZE 



Dl « 1ST DIMENSION SIZE 
EXIT WITH AF IN A 



IM OK SUBSCRIPT VALUE 



2156 
2157 
2158 
2159 
2160 
2161 
2162 
2163 
2164 
2165 
2166 
2167 
2168 
2169 
2170 
2171 
2172 
2173 
2174 
2175 
2176 
2177 
2178 
2179 
2180 
2181 
2182 
2183 
2184 
2185 
2186 
2187 
2188 
2189 
2190 

2192 
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2193 
2194 
2195 
2196 
2197 
2198 
2199 
2200 
2201 
2202 
2203 
2204 
2205 
2206 
2207 
2208 
2209 
2210 
2211 
2212 
2213 
2214 
2215 
2216 
2217 
2218 
2219 
2220 
2221 
2222 
2223 
2224 
2225 
2226 
2227 
2228 
2229 



03757 
03760 
03761 
03762 
03763 
03764 
03765 
03766 
03767 



03770 
03771 
03772 
03773 
03774 
03775 
03776 
03777 
04000 
04001 
04002 
04003 
04004 



140100 
0404 64 

07 00723 
100040 

1 02 15404 
•0 01 03755 

003746 
003742 
003736 



000000 
10 02672 

02 15400 

03 00735 

04 00667 
0415 76 

06 00667 
04 00040 
10 03656 
10 04005 
02 00040 
07 00664 
01 03770 



SSP 
LQR 
SUB 
SZE 
LOA 
JMP» 
FA91 DAC 
DAC 
DAC 



FLOO 



DAC 
JST 
LDA 
ANA 
STA 
ALS 
ADD 
STA 
JST 
JST 
LDA 
SUB 
JHP« 



12 
K105 

DP*4,1 

FA40 

rA26 

FA24 

FA22 



35 

SKIP IF DUMMY SUBSCRIPT 
FETCH VALUE OF SUBSCRIPT 



♦FETCH LINK* 

EXPAND LINK FIELD AND FETCH ASSIGNS FOR THE 
LINKED ITEM 



• • 

STXA 

DP,1 

K118 

FLtl 

2 

FLTl 

A 

FAOO 

KTOO 

A' 

F 

FLOO 



A « 5 * CL(A) 



(FLTl ALSO USED BY ASSIGN SPEC) 

FETCH ASSIGN 

DO » » NDS /ITEM 

(A) « A-F 

RETURN 



•DO»WORDS FOR LINK* 



D • ITEM MODE SIZE TIMES THE TOTAL SIZE IF 
THE ITEM IS AN ARRAY 



2193 
2194 
2195 
2196 
2197 

2198 
2199 
2200 
2201 
2202 
2203 
22Q4 
2205 
2206 
2207 
2208 
2209 
2210 
2211 
2212 
2213 
2214 
2215 
2216 
2217 
2216 
2219 
2220 
2221 
2222 
2223 
2224 
2225 
2226 
2227 
2228 
2229 



TTQTsJTilVWETT 

■Ik .a. K^ rik ^ ^^^ ^^ f$ If ^^ ^^m ^^mm 



rnuDiiTcp rnyrpni niyicinM 

VWliilwibi^ <bvl«fi<wb i^iWlJiWi* 
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2230 
2231 
2232 
2233 
2234 
2235 
2236 
2237 
2236 
2239 
2240 
2241 
2242 
2243 
2244 
2245 
2246 
2247 
2248 
2249 
2250 
2231 
2252 
2253 
2254 
2255 
2256 
2257 
2256 
2259 
2260 
2261 
2262 
2263 
2264 



04005 
04006 
040Q7 
04010 
04011 
04012 
04013 
04014 
04015 
04016 
04017 
04020 
04021 
04022 
04023 
04024 
04025 



04026 
04027 
04030 
04031 
04032 
04033 
04034 
04035 
04036 



000000 
02 00655 
07 00721 
100040 
'0 01 04005 
02 00633 
000201 
02 00634 
10 02703 
000201 
02 00635 
10 02703 
000201 
02 00636 
10 02703 
04 00633 
'0 01 04005 



KTOO OAC 
LOA 
SUB 
SZE 
JMP» 
LDA 
IA8 
LOA 
JST 
IA8 
IDA 
JST 
lAB 
LDA 
JST 
STA 
JMP» 



2266 04040 



04 00653 

10 026^2 

1 02 15400 
0400 67 
0404 75 
0414 75 

06 00653 

0410 67 

i 04 15400 

•0 01 04026 



STA 
JST 
LOA 
LRL 
LGR 
LGL 
ADD 
LLL 
STA 
JMP» 



• • 

lU 
K103 

KTOO 
DO 

Dl 
IMOO 

D2 

IMOO 

D3 

IHOO 
DO 
KTOO 



IF lU NOT 'ARR» 

RETURN 

DO s UO « 01 • D2 • 03 

MULTIPLY A BY 8 

MULTIPLY A BY B 

MULTIPLY A BY B 
RETURN 



•DEFINE IM» 



IM SUBA s IM (SET FROM A REG) 



000000 DM00 OAC •• 



IM 

STXA 

DP,1 

9 

3 

3 

IM 

9 

Dr»i 

DMUO 



IM » (A) 
ESTABLISH A 



IM(A) » IM 



2230 
2231 
2232 

2233 
2234 

2235 
2236 
2237 
2236 
2239 
2240 
2241 
2242 
2243 
2244 
2245 
2246 
2247 
2246 
2249 
2250 
2251 
2252 
2253 
2294 
2255 
2256 
2257 
2256 
2259 
2260 
2261 
2262 
2263 
2264 
2265 
2266 
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2267 » 

2268 • 2267 

2269 # ♦*••###»»#• 2268 

2270 # •DEriNE AF» ify^ 

2271 * ••••#•••••• IIJJ 

2272 # AF SUBA » AF (SET FROM A REG) 2272 

2274 04041 000000 DAOO DAC #* Hlj 

2275 04042 04 00630 STA AF AF = (A) illt 

2276 04043 0400 62 LRL 14 HH 

2277 04044 10 02672 JST STXA ;;;: 

2278 04045 1 02 15401 DAIO LDA DP*1,1 IF lU (A) NOT ARR loil 

2279 04046 0404 62 LQR 14 HH 

2280 04047 11 00721 CAS K103 QF (A) » AF llll 

2281 04050 01 04052 JMP #42 ,;!? 

22«3 mil V.l 25°^^ ^""^ °'^° ^'-SE, GF (GF (A>) . AF HH 

2283 04052 0410 62 m 14 Zolt 

2284 04053 I 04 15401 STA DP*1,1 HH 

2285 04054 -0 01 04041 JMP» DAOO RETURN Hit 

2286 04055 1 02 15401 DA20 IDA DP*1,1 HH 

2287 04056 03 00730 ANA Kill ;?!; 

2288 04057 04 00650 STA QFA HH 

2289 04060 04 00000 STA Hit 

2290 04061 01 04045 JMP DAIO HH 

2291 04062 000000 NXT DAC •• GET NEXT ENTRY aloS 

2292 04063 02 00040 LDA A ^ROH ASSIGNMENT UU 

2293 04064 06 00723 ADD K105 »5 HH 

2294 04065 04 00040 STA A illi 

2295 04066 04 OOOOO STA zilt 

2296 04067 11 00054 CAS ABAR HH 

2297 04070 -0 01 04062 JMP* NXT Hlz 

2298 04071 101000 NOP HH 

2299 04072 12 04062 IRS NXT "!? 

2300 04073 1 02 15400 LDA DP,1 9?nn 

2301 04074 0400 61 LRL 15 !,ni 

2302 04075 04 00617 STA NTA NT(A) . NT FROM (A) 23D2 

2303 04076 14004U CRA 2303 
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2304 04077 
2309 04100 

2306 04101 

2307 04102 

2308 04103 

2309 04104 

2310 04105 

2311 04106 

2312 04107 

2313 04110 

2314 04111 

2315 04112 

2316 04113 

2317 04114 

2318 04115 

2319 04116 

2320 04117 

2321 04120 

2322 04121 

2323 04122 

2324 04123 

2325 04124 

2326 04125 

2327 04126 

2328 04127 

2329 04130 

2330 04131 

2331 04132 

2332 04133 

2333 04134 

2334 04135 

2335 04136 

2336 04137 

2337 04140 

2338 04141 

'51 "to 

2340 



0410 75 
04 00620 
140040 
0410 75 
04 00621 
140040 
0410 67 

04 00622 

1 02 15401 
0400 62 

04 00623 

140040 

0410 62 

04 00650 
02 19402 
04 03636 
02 19403 
04 03635 
02 15404 
04 03634 

0400 61 

04 00624 

140040 

0410 77 

04 00625 

02 00617 

100040 

01 04Q62 

1 02 15404 
140500 
0416 77 
140500 
0406 77 

04 03634 
01 04062 



LLC 

STA 

CRA 

ULL 

STA 

CRA 

ULL 

STA 

IDA 

LRU 

STA 

CRA 

ILL 

STA 

LDA 

STA 

LOA 

STA 

LDA 

STA 

LRL 

STA 

CRA 

LLL 

STA 

LDA 

SZE 

JMP* 

LDA 

SSH 

ALR 

SSH 

ARR 

STA 

JMP* 



3 

ATA 

3 

I HA 

9 

CLA 

DP*1,1 

14 

lUA 

14 

GFA 

DP*2#1 

T1DA*2 

DP*3,1 

TIDA*1 

DP*4,1 

TIDA 

15 

DTA 

1 
TTA 

NTA 

NXT 
DP*4,1 



1 

TIDA 

NXT 



AT(A) « AT FROM (A) 

IM(A) » IM FROM (A) 

CL(A) a CL FROM (A) 

IU(A) ■ lU PROM (A) 

QF(A) « GF FROM CA) 
TID(A) « TID FROM (A) 



DT(A) « DT FROM (A) 



TT(A) « TT FROM (A) 
NT(A) > NT FROM (A) 



2304 
2305 
2306 
2307 
2308 
2309 
2310 
2311 
2312 
2313 
2314 
2319 
2316 
2317 
2318 
2319 
2320 
2321 
2322 
2323 
2324 
2329 
2326 
2327 
2328 
2329 
2330 
2331 
2332 
2333 
2334 
2335 
2336 
2337 
2338 
2'*39 
2340 
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2341 

2342 

2343 

2344 

2345 

2346 

2347 

2348 

2349 

2350 

2351 

2352 

2353 

2354 

2355 

2356 

2357 

2358 

2359 

2360 

2361 

2362 

2363 

2364 

2365 

2366 

2367 

2368 

2369 

2370 

2371 

2372 

2373 

2374 

2375 

2376 

2377 



04142 

04143 

04144 

04145 

04146 

04147 

04150 

04151 

04152 

04153 

04154 

04155 

04156 

04157 

04160 

04161 

04162 

04163 

04164 

04165 

04166 

04167 

04170 

04171 

04172 

04173 

04174 

04175 

04176 

04177 

04200 

04201 

04202 

04203 

04204 

04205 

04206 



000000 
10 02672 
04 00054 
02 01475 
04 15404 
02 01476 
04 15403 
02 01477 
04 15402 
02 00655 
04 00623 



0414 62 
1 04 15401 
02 00573 
0414 75 
06 00720 
0414 75 
06 00653 
0400 60 
04 00665 



02 00720 
04 00631 
02 00040 
07 00723 
100400 
01 04176 
12 00665 
01 04171 
0410 47* 

06 00665 

1 04 15400 
100400 

•0 01 04142 
02 00666 
0414 77 
06 00610 
0414 62 



BUD DAC 
JST 
STA 
LDA 
STA 
LOA 
STA 
LOA 
STA 
LDA 
STA 
LGL 
STA 
LDA 
LGL 
ADD 
LQL 
ADD 
LRL 
STA 
LDA 
STA 
LDA 
SUB 
SPL 
JMP 
IRS 
JMP 
LLL 
ADD 
STA 
SPL 

LDA 
LQL 
ADD 
LQL 



• • 

STXA 

ABAR 

TID 

DP*4,1 

T10*1 

DP*3#1 

TID*2 

0P*2,1 

lU 

lUA 

14 

DP*1,1 

NT 

3 

K102 

3 

IM 

16 

CL 

K102 

AT 

A' 

K105 

• ♦3 

CL 

•-4 

25 

CL 

opa 

BUD 

or 
1" 

TT 
14 



BUILD ASSIGNMENT 
TABLE ENTRY 



AT » STR/*BS 



CL(A) ■ A/5 



2341 

2342 

2343 

2344 

2345 

2346 

2347 

2948 

2349 

2350 

2351 

2352 

2353 

2354 

2355 

2356 

2l57 

2358 
23^9 

ai6o 

2361 

2162 

2363 

2364 

2365 

2366 

2967 

2361 

2|69 

21^0 

lltl 

11^2 

2973 

2374 

2375 

2376 

2377 
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2378 

2379 

2380 

2381 

2382 

2363 

2384 

2385 

2366 

2387 

2388 

2389 

2390 

2391 

2392 

2393 

2394 

2395 

2396 

2397 

2398 

2399 

2400 

2401 

2402 

2403 

2404 

2405 

2406 

2407 

2408 

2409 

2410 

2411 

2412 

2413 

2414 



04207 
04210 
04211 
04212 
04213 



04214 
04215 
04216 
04217 
04220 
04221 
04222 
04223 
04224 
04225 
04226 
04227 
04230 
04231 
04232 



1 13 15404 

03 00^30 

1 06 15404 
1 04 15404 

-0 01 04142 



IMA 
ANA 
ADD 
STA 
JMP» 



000000 AFOO 

000201 

04 04231 

10 02672 

02 04231 
0414 64 

1 13 15400 

03 04232 

1 06 15400 
1 04 15400 
000201 
10 04041 

>0 01 04214 
00 00000 AF90 
107777 AF91 
• 

* 
» 
* 
04233 000000 LOOO DAC 



DAC 

lAB 

STA 

JST 

LDA 

LQL 

IHA 

ANA 

ADD 

STA 

lAB 

JST 

JMP« 

PZE 

OCT 



DP*4,1 

Kill 

DP*4,1 

DP*4,1 

BUD 



•DEFINE AFT* 
AT SUBA « AT (FHOM B HEG), THEN DEFINE AF 



• • 

AF90 

STXA 

AF90 

12 

DP»1 

AF91 

DP,1 
DP,1 

DAOO 
AFOO 

107777 



AT{A) « CONTENTS OF B INPUT 
DEFINE AF 



SET 
«• 



•DEFINE LOCATION* 
AF = RPL. AT s REL 



2378 

2379 

2380 

2381 

2382 

2363 

2364 

2385 

2386 

2387 

2388 

2389 

2390 

2391 

2392 

2393 

2394 

2395 

2396 

2397 

2398 

2399 

2400 

2401 

2402 

2403 

2404 

2405 

2406 

2407 

2408 

2409 

2410 

2411 

2412 

2415 

2414 
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24i5 
2416 
2417 
2416 
2419 
2420 
2421 
2422 
2423 
2424 
2425 
2426 
2427 
2428 
2429 
. 2430 
2431 
2432 
2433 
2434 
2435 
2436 
2437 
2438 
2439 
2440 
2441 
2442 
2443 
2444 
2445 
2446 
2447 
2448 
2449 
2450 
2451 



04234 
04235 
04236 
04237 
04240 



04241 
04242 
04243 
04244 
04245 
04246 
04247 
04250 
04251 



04252 
04253 
04254 
04255 
04256 
04257 
04260 
04261 



02 00717 
000201 
02 00060 
10 04214 
01 04233 



000000 

140040 

04 01476 

04 01477 

02 00717 

000201 

02 00720 

10 04252 

01 04241 



000000 
04 00655 
000201 
04 00653 
02 00717 
04 00573 
10 03241 
01 04252 



* 
AIOO 



LDA 
IAS 
LDA 
JST 
JHP* 



OAC 
CRA 
STA 
STA 
LDA 
lAB 
LDA 
JST 
JMP» 



* 
« 

* 
AAOO 



DAC 
STA 
lAB 
STA 
LDA 
STA 
JST 
JMP« 



KlOl 

RPL 

AFOO 

LOOO 



REL 



DEFINE AF 



•ASSIGN INTEGER CONSTANT* 

IM (INTEGER), IU(VARIABL£) , ASSIGN SPECIAL 
*♦ 

ID*1 
ID*2 
KlOl 

K102 
AAOO 
AIOO 



(B) 



INT 



(A) » VAR 
ASSIGN SPECIAL 
RETURN 



•ASSIGN SPECIAL* 

KEG TO IM, A REG TO 
ASSIGN ITEM 



lU 

IM 

KlOl 

Nt 

ASOO 

AAOO 



lU 
IM 



lU, 1 TO NT (CONSTANT), THEN 



(A) 



(B) 



NT « 1 
ASSIGN 
RETURN 



ITEM 



•JUMP • 



2415 
2416 
2417 
2418 
2419 

2420 

2421 

2422 

2423 

2424 

2425 

2426 

2427 

2426 

2429 

2430 

2431 

2432 

2433 

2434 

2435 

2436 

2437 

2438 

2439 

2440 

2441 

2442 

2443 

2444 

2445 

2446 

2447 

2446 

2449 

2450 

2451 



TT o fkT T-j TT TTT "CI T T 
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2452 








• 




2453 








• 




2454 








• 




2455 








• 




2456 








• 




2457 


04262 


140040 


B6 


CRA 


2458 


04263 


04 


00073 




STA 


2459 








• 




2460 


04264 


02 


00717 


C5 


UDA 


2461 


04265 


04 


00072 




STA 


2462 


04266 


02 


00756 


Al 


IDA 


2463 


04267 


10 


02547 




JST 


2464 


04270 


01 


04271 




JMP 


2465 












2466 












2467 












2468 












2469 












2470 












2471 












2472 


04271 


02 


00070 


C6 


IDA 


2473 


04272 


100040 




SZE 


2474 


04273 


01 


04333 




JMP 


2475 


04274 


02 


00071 


C6A 


LDA 


2476 


04275 


100040 




SZE 


2477 


04276 


01 


04301 




JMP 


2478 


04277 


04 


00072 


C6B 


STA 


2479 


04300 


01 


04353 




JMP 


2480 


04301 


07 


00065 


C6C 


SUB 


2481 


04302 


101040 




SNZ 


2482 


04303 


04 


00065 




STA 


2483 


04304 


02 


00661 




LDA 


2484 


04305 


06 


00057 




ADD 


2485 


04306 


04 


00041 


C6D 


STA 


2486 


04307 


10 


02676 




JST 


2487 


04310 


0/ 


00661 




SUB 


2468 


04311 


101040 




SNZ 



•ILL TERM* 



CLEAR LAST OP FLAG FOH NU PATH TESTING 



LSTP LSTP s 

SET ILLEGAL DO lERM FLAG 

KlOl 

LSTF LSTF =1 

CRET 

TSOO IF TC NOT C/R» ERROR 

06 



•CONTINUE* 



WRAPUP LOGICAL IF, CHECK TRACE STOP AND SEARCH 

DO TABLE FOR DO TERMINATION 
LIF 

IF LIF NON-ZEROi 
C6H GO TO 

USTN IF LSTN NON-ZERO, 

GO TO 
C6C 

LSTF LSTF « 

C7 GO TO STATEMENT INPUT 

TRF TRACE FLAG 

SKIP IF NOT ENU OF TRACE ZOiMt 
TRF SET TRF TO ZERO (TURN FLAG OFF) 

DO" START OF DO TABLE 

D 

I I 3 DO ♦ D 

STXI 
DO 



2452 

2453 

2454 

2455 

2496 

2457 

2458 

2459 

2460 

2461 

2462 

2463 

2464 

2465 

2466 

2467 

2468 

2469 

2470 

2471 

2472 

2473 

2474 

2475 

2476 

2477 

2478 

2479 

248U 

2481 

2482 

2463 

2484 

2485 

2466 

2488 
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2489 


04312 


01 


04277 




JMP 


C6B 


2490 


04313 


1 02 


15374 




LDA 


DP-4,1 


2491 


04314 


07 


00071 




SUB 


LSTN 


2492 


04315 


100040 




SZE 




2493 


04316 


01 


04327 




JMP 


C6E 


2494 


04317 


02 


00072 




LDA 


LSTF 


2495 


04320 


100040 




SZE 




2496 


04321 


01 


04351 




JMP 


C6K 


2497 


04322 


10 


06773 




JST 


DQOO 


2498 


04323 


02 


00057 




LDA 


D 


24V9 


04324 


07 


00723 




SUS 


K105 


2500 


04325 


04 


00057 




STA 


D 


2501 


04326 


02 


00072 




LDA 


LSTF 


2502 


04327 


04 


00072 


C6E 


STA 


LSTF 


2503 


04330 


02 


00041 




LDA 


I 


2504 


04331 


07 


00723 




SUB 


K105 


2505 


04332 


01 


04306 




JMP 


C6D 


2506 


04333 


02 


00053 


C6H 


LDA 


IFF 


2507 


04334 


04 


00040 




STA 


A 


2508 


04335 


101040 




SNZ 




2509 


04336 


01 


04344 




JMP 


C6J 


2510 


04337 


0410 


60 




LLL 


16 


2511 


04340 


02 


13733 




LDA 


0MI5 


2512 


04341 


10 


12467 




JST 


OBOO 


2513 


04342 


140040 




CRA 




2514 


04343 


04 


00053 




STA 


IFF 


2515 


04344 


04 


00040 


C6J 


STA 


A 


2516 


04345 


02 


00070 




LDA 


LIF 


2517 


04346 


04 


00073 




STA 


LSTP 


2518 


04347 


10 


14135 




JST 


OSOO 


2519 


04350 


01 


04274 




JMP 


C6A 


2520 








• 






2521 


04351 


10 


03116 


C6K 


JST 


EROO 


2522 


04352 


142324 




BCI 


liDT 


2523 








* 






2524 








« 




• *« 


2525 








• 




#ST 



GU TO C6B - FINISHED DO 



DO TERMINATIOlM 
D ' 0-5 

I 5 1,5 • CONTINUE DO LOOP 



(A) = JMP INSTRUCTION 
OUTPUT OA 

IFF « 
A « 

SET TO NON-ZERO TO PREVENT DATA ERROR MSG 
OUTPUT STRING - RPL 



•STATEMENT INPUT* 



2489 
2490 
2491 
2492 
2493 
2494 
2495 
2496 
2497 
2496 
2499 
2500 
2501 
2502 
2503 
2504 
2505 
2506 
2507 
250d 
2509 
2510 
2511 
2512 
2513 
2514 
2515 
2516 
2517 
2518 
2519 
2520 
2521 
2522 
2523 
2524 
2525 



ki \j JN Mt X W Mi JLa JL* 
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2526 » 

2527 • 
2526 # 

2529 » 

2530 04353 140040 C7 CRA 

2531 04354 04 00071 STA 

2532 04355 04 00652 STA 

2533 04356 04 00070 STA 

2534 04957 02 00113 LDA 

2535 04360 04 00044 STA 

2536 04361 02 01155 LDA 

2537 04362 0404 70 LGR 

2538 04363 07 00700 SUB 

2539 04364 101040 SNZ 

2540 04365 01 04433 JHP 

2541 04366 10 025^5 JST 

2542 04367 100040 SZE 

2543 04370 01 04375 JMP 

2544 04371 10 02443 JST 

2545 04372 02 00040 LDA 

2546 04373 04 00071 STA 

2547 04374 04 00073 STA 

2548 04375 02 00053 C7l LDA 

2549 04376 02 00053 LDA 

2550 04377 101040 SNZ 

2551 04400 01 04405 JMP 

2552 04401 07 00071 SUB 

2553 04402 100040 SZE 

2554 04403 01 04407 JMP 

2555 04404 04 00053 C7A STA 

2556 04405 10 04416 C7B JST 

2557 04406 01 04456 JMP 
255g 04407 02 00053 C7C LDA 

2559 04410 04 00040 STA 

2560 04411 0400 40 LRL 



SET UP PROCESSING Or NfcXT SOURCE STATEMENT 
PROCESS STATEMENT NUMBER IF PRESENT 
WRAPUP ANY OUTSTANDING ARITHMETIC IF 



2562 04413 10 12467 



JST 



LSTN 

irLG 

LIF 

LO 

L 

CI 

8 

K15 

CCRD 
XNOO 

C71 

ISOO 

A 

LSTN 

LStP 

IFF 

IFF 

C7B 
LSTN 

C7C 

IFF 

C7LT 

C8 

IFF 

A 

32 

0600 



LSTN s 
IFLG « 
LIF « 
L » L (0) 

CHECK CARD COLUMN 1 
FOR S CHARACTER 
«(S) 

CONTROL CARD 
EXAMINfc NEXT CHAR 



INPUT STATEMENT « 

LSTN « A 

CHECK FOR IFF»0 
IF IFF « 0, 

60 TO C7B 
IF « LSTN 



IFF « 
LINE TEST 

IFF « A 



OUTPUT OA 



2526 
2527 
2528 
2529 
2530 
2531 
2532 
2533 
2534 
2535 
2536 
2537 
2538 
2539 
2540 
ZiiX 
2542 
2M3 
2544 
2545 
2546 
2547 
2548 
2549 
2550 
2^51 
2552 
2553 
2554 
2555 
2556 
2557 
2558 
2559 
2560 
2561 
2562 
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2563 


04414 


140040 


CRA 




2564 


04415 


01 04404 


JMP 


C7A 


2565 


04416 


000000 C7LT 


OAC 


** 


2566 


04417 


02 01157 


LOA 


Cl*2 


2567 


04420 


03 00733 


ANA 


K116 


2568 


04421 


06 00673 


ADD 


K8 


2569 


U4422 


04 01157 


STA 


Ci*2 


2570 


04423 


02 00607 


LDA 


TC 


2571 


04424 


07 00763 


SUB 


HC2 


2572 


04425 


100040 


SZE 




2573 


04426 


01 04431 


JMP 


C7LU 


2574 


04427 


10 03227 


JST 


LIST 


2575 


04430 


•0 01 04416 


JMP* 


C7LT 


2576 


04431 


10 03li6 C7LU 


JST 


EROO 


2577 


04432 


151703 


BCI 


1,SC 


2578 










2579 










2580 










2581 








#•• 


2582 








♦CO 


2583 








• •# 


2584 


04433 


10 14523 CCRD 


JST 


FSOO 


2585 


04434 


10 03227 


JST 


LIST 


2586 


04435 


02 Q1155 


LDA 


CI 


2587 


04436 


0414 64 


LGL 


12 


2588 


04437 


101040 


SNZ 




2589 


04440 


02 04454 


LDA 


CCRK 


2590 


04441 


0404 72 


LGR 


6 


2591 


04442 


04 14632 


STA 


OCI 


2592 


04443 


02 00724 


LDA 


K106 


2593 


04444 


04 00602 


STA 


QCNT 


2594 


04445 


10 14523 


JST 


FSOO 


2595 


04446 


02 01155 


LDA 


CI 


2596 


04447 


0414 64 


LGL 


12 


2597 


04450 


100040 


SZE 




2598 


04451 


01 03150 


JMP 


ER20 


2599 


04452 


10 OOUOO 


CALL 


F4$£:\D 



GO TO C7A 

LINE TEST 
CI » BLANK 
LIST LINE 
RETURN 



IF TC s SPECIAL 



CONSTRUCTION ERROR 

STATEMENT NO, ON A CONTINUATION CARD 



♦CONTROL CARD PROCESSOR* 

FLUSH BUFFER IF NECESSARY 

List CARD 

WORD CONTAINING COLUMN 1 



st030000 (EOJ CODE « 3) 
TRUNCATE TO A DIGIT 



>6 

SET BUFFER WORD COUNT TO 3 
FLUSH BUFFER 

CHECK COLUMN 1 FOR CONTROL CUUE 

SKIP TO NEXT CARD (NOT CONTROL GARi 
CLOSfc-OUT I/O DEVICES AND STOP 



2563 
2564 
2565 
2566 
2567 
2568 
2569 
2570 
2571 
2572 
2573 
2574 
2575 
2576 
2577 
2578 
2579 
2580 
2581 
2582 
2583 
2584 
2585 
2586 
2587 
2588 
2589 
2590 
2591 
2592 
2593 
2594 
2595 
2596 
2597 
2596 
2599 
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2600 
2601 
2602 
2603 
2604 
2605 
2606 
2607 
2608 
2609 
2610 
2611 
2612 
2613 
2614 
2615 
2616 
2617 
2618 
2619 
2620 
2621 
2622 
2623 
2624 
2625 
2626 
2627 
2628 
2629 
2630 
2631 
2632 
2633 
2634 
2635 
2636 



04453 
04454 



01 01003 JMP 
030000 CORK OCT 



AO 
030000 



RESTART NEW COMPILATION 
60J CONTROL CODE 



04455 
04456 
04457 
04460 
04461 
04462 
04463 
04464 
04465 
04466 
04467 
04470 
04471 
04472 
04473 
04474 
04475 
04476 
04477 



00 
02 
04 
02 
04 
14004 
04 
10 
02 
07 
10004 
01 
10 
02 
10004 
01 
02 
n n4 



00000 
00662 
04576 
00717 
Q4455 


00651 
01256 
00607 
00671 


04502 
01256 
00643 


04465 
045/6 
00662 
02 00717 



C8T1 P2E 

Ce LOA 
STA 
LDA 
STA 
CRA 
STA 
JST 
LDA 
SUB 
SZE 
JMP 
JST 

C6B2 LDA 
SZE 
JMP 

CbB4 LDA 



C8A 
C8B 



•STATEMENT SCAN* 

DETERMINE THE CLASS OF 
IF AN 3 IS FOUND W 
THE STATEMENT 
IF NO FOLLOW! 
IS TESTED, IF 
IS ARITHMETIC 
IF PARENS WER 
NAME IS AN AR 
ARITHMETIC AS 
OTHERWISE, IT 
IF NO » IS FO 
PROCESSED FUR 





CC 

C8X9 

KlOl 

C8T1 

ICSW 
CMOO 
TC 
K4 

C8C 

CHOO 

DFL 

C8B 
C6X9 



THE STATEMENT 
ITH A FOLLOWING , 

IS A DO 
NG COMMA, THE PAREN FLAG 

NO PARENS, THE STATEMENT 

ASSIGNMENT 
E DETECTED AND THE FIRST 
RAY, THE STATEMENT IS 
SIGNMENT 

IS A STATEMENT FUNCTION 
UND, THE STATEMENT IS 
THER IN STATEMENT ID 



LDA KlOl 



SAVE CC 



T (1) = 1 

ICSW » SIR 
INPUT CHARACTER 
IF tC ■ ) 



INPUT CHAR 

IF DFL NOT ZERO 

GO TO C8B 
RESTORE CC 

IPL 



2600 
2601 
2602 
2603 
2604 
2605 
2606 
2607 
2608 
2609 
2610 
2611 
2612 
2613 
2614 
2615 
2616 
2617 
2618 
2619 
2620 
2621 
2622 
2623 
2624 
2625 
2626 
2627 
2628 
2629 
2630 
2631 
2632 
2633 
2634 

2635 
2636 
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2637 


04500 


04 0Q6!3l 


STA 


ICSW 


2638 


04501 


01 04602 


JMP 


A9 


2639 


04502 


02 006O7 cac 


LDA 


TC 


2640 


04503 


07 00702 


SUB 


K17 


2641 


04504 


100040 


SZE 




2642 


04505 


01 04515 


JMP 


C8D 


2643 


04506 


02 04455 


LDA 


C8T1 


2644 


04507 


07 00717 


SUB 


KlOl 


2645 


04510 


04 04455 


STA 


C8T1 


2646 


04511 


100040 cac4 


SZE 




2647 


04512 


01 04475 


JMP 


C864 


2648 


04513 


10 01521 


JST 


DNOO 


2649 


04514 


01 04472 


JMP 


C862 


2650 


04515 


02 00607 C8D 


LDA 


TC 


2651 


04516 


11 00752 


CAS 


K134 


2652 


04517 


01 04521 


JMP 


#♦2 


2653 


04520 


01 04524 


JMP 


C8D2 


2654 


04521 


07 00672 


SUB 


K5 


2655 


04522 


100040 


SZE 




2656 


04523 


01 04526 


JMP 


C8E 


2657 


04524 


02 04455 C8D2 


LDA 


C8T1 


2658 


04525 


01 04511 


JMP 


C8C4 


2659 


04526 


02 00607 C8E 


LDA 


TC 


2660 


04527 


07 00674 


SUB 


K9 


2661 


04530 


101040 


SNZ 




2662 


04531 


01 04475 


JMP 


C864 


2663 


04532 


02 00607 


LDA 


TC 


2664 


04533 


07 00703 


SUB 


K16 


2665 


04534 


100040 


SZE 




2666 


04535 


01 04464 


JMP 


C6A 


2667 


04536 


02 00725 


LDA 


K107 


2668 


04537 


10 01355 


JST 


lAOO 


2669 


04540 


02 04576 


LDA 


cex9 


2670 


04541 


04 00662 


STA 


CC 


2671 


04542 


02 00717 


LDA 


KlOl 


2672 


04543 


04 00651 


STA 


ICSm 


2673 


04544 


02 00607 


LDA 


TC 



ICSW 8 IPL 

GO TO STATENEnT id 

IF TC NOT {, 



GO TO C8D 
Tl » Tl - 1 



IF Tl a 

INPUT ONA 

GO TO C8B2 

IF TC « , 

«'17 ('FINISHED' CODE FOR COMMA) 

TC « COMMA 



GO TO C8C4, 
ELSE, IF TC ■ »/» 

GO TO C8B4 

IF NOT a , 

GO TO C8A 

INPUT 7 CHARACTERS 

HESTORE CC 

IPL 

ICSW a IPi 



2637 

2638 

2639 

2640 

2641 

2642 

2643 

2644 

2645 

2646 

2647 

2648 

2649 

2650 

2651 

2652 

2653 

2654 

2655 

2656 

2657 

2658 

2659 

2660 

2661 

2662 

2663 

2664 

2665 

2666 

2667 

2668 

2669 

2670 

2671 

2672 

2673 
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2674 
2675 
2676 
2677 
2676 
2679 
2660 
2681 
2682 
2683 
2684 
2685 
2666 
2687 
2668 
2689 
2690 
2691 
2692 
2693 
2694 
2695 
2696 
2697 
2698 
2699 
2700 
2701 
2702 
2703 
2704 
2705 
2706 
2707 
2708 
57no 



04545 
04546 
04547 
04550 
04551 
04552 
04553 
04554 
04555 
04556 
04557 
04560 
04561 
04562 
04563 
04564 
04565 
04566 
04567 
04570 
04571 
04572 
04573 
04574 
04575 
04976 



07 00672 
100040 
01 04563 
02 00720 
10 01355 
02 01501 
07 00704 
101040 
01 04560 
10 Q3116 
141715 
02 00722 
10 05074 
01 05510 
02 04455 
100040 
01 06321 
10 029^0 
02 04576 
04 00662 
02 00655 
07 007ai 
100040 
01 06367 
01 06321 
00 00000 



C8Q 



04577 
04600 



00 00000 
00 00000 



SUB 
SZE 

jmp 

LOA 
JST 
LDA 
SUB 
SNZ 
JMP 
JST 
BCI 
LDA 
JST 
JMP 
LOA 
SZE 
JMP 
JST 
LDA 
STA 
LDA 
SUB 
SZE 
JMP 
JMP 
C6X9 PZE 

• 

A9T1 PZE 
A9T2 PZE 



K5 

C8G 

K102 

lAOO 

IBUF 

K19 

• ♦3 

EROO 

IfCM 

K104 

NPOO 

C9 

C8T1 

Q2 

SYOO 

C8X9 

cc 
ig 

K103 

Ql 
G2 




IF TC iMQT, 

GO TU C8G 

ELSE, INPUT 2 CHARS 

IF (A) s »D0' 



COMMA OUTSIDE PARENTHESESi NOT IN DQ STMNT, 

FIRST NON-SPEC CHECK 

GO TO DO 

1 IF NO ( TO LEFT OF EQUALS 

ARITHMETIC ASSIGNMENT STATEMENT 
INPUT SYMBOL 

RESTORE CC 
IF iU » SUBR 



GO TO ARITH ST, FUNCT. 
OTHERWISE s ASSIONMENT STATEMENT 



2710 04602 02 00722 A9 LDA 



♦STATEMENT I DENT IF ICAT ION# 

READ FOUR CHARACTERS AND DETERMINE CORRECT ROUTINE 

FOR PROCESSING, THEN CHECK SPELLING ON RfeST 



n 

K104 



2674 
2675 
2676 
2677 
2676 
2679 
2680 
2661 
2682 
2663 
2664 
2669 
2696 
2667 
2666 
2669 
2690 
2691 
2692 
2693 
2694 
2695 
2696 
26^7 
2696 
2699 
2700 
2701 
2702 
2703 
a704 
2705 
2706 
2707 
2708 

OTrno 

2710 
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2711 04603 


10 01355 


JST 


lAOO 




2712 04604 


02 01501 


LDA 


IBUF 




2713 04605 


04 00570 


STA 


NAMF 




2714 04606 


02 01502 


LOA 


IBUF^ 


►1 


2715 04607 


04 00571 


STA 


NAMFi 


►1 


2716 04610 


02 05070 


LDA 


A9Z9 




2717 04611 


04 00000 


STA 


XR 




2718 04612 


02 00570 A9A 


LDA 


NAMF 




2719 04613 


1 07 04732 


SUB 


A9X14 


'30,1 


2720 04614 


100040 


SZE 






2721 04615 


01 04661 


JMP 


A9F 




2722 04616 


02 00571 


LOA 


NAMF* 


1 


2723 04617 


1 07 04770 


SUB 


A9X24 


'30,1 


2724 04620 


100040 


SZE 






2725 04621 


01 04661 


JMP 


A9F 




2726 04622 


1 02 05070 


LDA 


A9X4* 


30,1 


2727 04623 


03 10027 


ANA 


K133 




2728 04624 


04 04577 


STA 


A9T1 




2729 04625 


1 02 05026 


LDA 


A9X3« 


30,1 


2730 04626 


0400 63 


LRL 


13 




2731 04627 


000201 


lAB 






2732 04630 


0404 75 


LQR 


3 




2733 04631 


04 04600 


STA 


A9T2 




2734 04632 


000201 


lAB 






2735 04633 


10 05074 


JST 


NPOO 




2736 04634 


02 04577 A9B 


LDA 


A9T1 




2737 04635 


100040 


SZE 






2738 04636 


01 04640 


JMP 


A9C 




2739 04637 


•0 01 04600 


JMP« 


A9T2 




2740 


• 








2741 04640 


07 00724 A9C 


SUB 


K106 




2742 04641 


100400 


SPL 






2743 04642 


01 04654 


JMP 


A9E 




2744 04643 


04 04577 


STA 


A9T1 




2745 04644 


02 00724 


LDA 


K106 




2746 04645 


04 04601 A9D 


STA 


A9T3 




2747 04646 


10 01355 


JST 


lAOO 





INPUT (4) CHARS 
NAMF s IBUF 



INITIALIZE INDEX FOR LOOP 
THRdUGH THE STATEMENT NAMES 



READ IN REST OF 

CHECK REST OF SPELLING FOK 

A MATCH ON 4 CHARACTERS 
NOT FOUND 



Tl » NUMBER OF REMAINING CHARACTERS 
LEFT TO CHECK - - 



T2 « ADDRESS OF ROUTINE 

FIRST NON-SPECIFIC. CHECK -<A) m 
HIERARCHY CODE 

MUST CHECK MORE CHARACTERS 
FINISHED CHARACTER CHECK, "EXIT TO 
SPECIFIC ANALYZER. 



REMAINING SPELLING IS CHECKED. 



2711 

2712 

2713 

2714 

2715 

2716 

2717 

2718 

2719 

2720 

2721 

2722 

2723 

2724 

2725 

2726 

2727 

2726 

2729 

2730 

2731 

2732 

2733 

2734 

2735 

2736 

2737 

2798 

2739 

2740 

2741 

2742 

2743 

2?44 

2745 

2746 

2747 
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2748 


04647 


07 04601 


SUB 


A9T3 


2749 


04650 


101040 


SNZ 




2750 


04651 


01 04634 


JMP 


A96 


2751 


04652 


10 03116 


JST 


EROO 


2752 


04653 


151720 


BCI 


1»SP 


2753 


04654 


06 00724 A9E 


ADD 


K106 


2754 


04655 


13 04577 


IHA 


A9T1 


2755 


04656 


140040 


CRA 




2756 


04657 


13 04577 


IHA 


A9T1 


2757 


04660 


01 04645 


JHP 


A9D 


2758 


04661 


12 00000 A9F 


IRS 


XR 


2759 


04662 


01 04612 


JMP 


A9A 


2760 


04663 


02 00607 


IDA 


TC 


2761 


04664 


07 00756 


SUB 


CRET 


2762 


04665 


100040 


SZE 




2763 


04666 


01 04672 


JMP 


A96 


2764 


04667 


02 00071 


LDA 


LSTN 


2765 


04670 


101040 


SNZ 




2766 


04671 


01 04353 


JMP 


C7 


2767 


04672 


10 03116 A9G 


JST 


EROO 


2768 


04673 


144704 


BCI 


1»ID 


2769 


04674 
04675 
04676 
04677 
04700 
04701 
04702 
04703 
04704 
04705 


144716 A9X1 

151305 

142317 

141717 

146317 

143325 

151725 

141314 

142730 

142311 


BCI 


10,1 


2770 


04706 
04707 
04710 
04711 
04715 
04713 


141717 
142721 
143717 
141701 
151305 
141717 


BCI 


10, C 



STATEMENT NAME MISSPELLED 



LOOP CONTROL FOR STATEMENT NAMES, 
MORE NAMES • CONTINUE LOOP 



TC ■ C/R 

AND LSTN ■ * INPUT NEW STATEMENT 

UNRECOUNIZED STATEMENT 



10, INREDOCOLOFUSUBLEXDI 



10,COEQGOCARECOFOIFWRRE 



2748 
2749 

2750 
2751 
2752 
2753 
2754 
2755 
2756 
2757 
2756 
2759 
2760 
2761 
2762 
2763 
2764 
2765 
2766 
2767 
2768 
2769 



2770 
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04714 


143317 






04715 


144706 






04716 


153722 






04717 


151305 






2771 04720 


141301 


SCI 


7,BAENREENASSTPA 


04721 


142716 






04722 


151305 






04723 


142716 






04724 


140723 






04725 


151724 






04726 


150301 






2772 04727 


142301 


BCI 


2»DATR 


04730 


152322 






2773 04731 


150322 


BCI 


1»PR 


2774 04732 


152305 


A9X2 BCI 


lOiTEALUBMPGINCBKOCTEHE 


04733 


140714 






04734 


152702 






04735 


146720 






04736 


143711 






04737 


147303 






04740 


141322 






04741 


147703 






04742 


152305 






04743 


146705 






2775 04744 


146715 


BCI 


10»MMUITOLLTUNTRM( ITAD 


04745 


152711 






04746 


152317 






04747 


146314 






04750 


152325 






04751 


147324 






04752 


151315 






04753 


124240 






04754 


144724 






04755 


140704 






2776 04756 


141713 


BCI 


3,CKDrwi 


04757 


142306 






04760 


153711 







2771 



2772 

2773 
2774 



2775 



2776 
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2777 


04761 


142215 


OCT 


142215 


D, C/R 


2778 


04762 
04763 
04764 


151711 
147720 
152723 


BCI 


3*SI0PUS 




2779 


04765 
04766 


152301 
140703 


BCI 


2,TAAC 




2780 


04767 


144716 


BCI 


liIN 




2781 


04770 





011101 


A9X3 DAC 


A3 




2782 


04771 





011103 


DAC 


A4 




2783 


04772 





011105 


DAC 


A5 




2784 


04773 





011107 


DAC 


A6 




2785 


04774 





011111 


DAC 


A7 




2786 


04775 





011042 


DAC 


Rl 




2787 


04776 





011044 


DAC 


R2 




2788 


04777 





012303 


DAC 


R3 




2789 


05000 





011145 


DAC 


B2 




2790 


05001 





011154 


DAC 


B3 




2791 


050Q2 





011253 


DAC 


B4 




2792 


05003 





011335 


DAC 


B5 




2793 


05004 


•0 


005334 


DAC* 


R7 




2794 


05005 


-0 


006301 


DAC* 


R8 




2795 


05006 


-0 


006330 


DAC* 


R9 




2796 


05007 


-0 


005026 


DAC* 


CONT 




2797 


05010 


-0 


005771 


DAC* 


V2 




2798 


05011 


-0 


005210 


DAC* 


V3 




2799 


05012 


•0 


005552 


DAC* 


V4 




2600 


05013 


• 


005343 


DAC* 


V5 




2801 


05014 


-0 


005526 


DAC* 


V6 




2802 


05015 


-0 


005533 


DAC* 


V7 




2803 


05016 


-0 


005535 


DAC* 


V8 




2804 


05017 





026444 


DAC 


W5*»20000 




2805 


05020 


-0 


005443 


DAC* 


W3 




2806 


05021 


• 


006233 


DAC* 


W7 




2807 


05022 


-0 


006274 


DAC* 


W8 




2808 


05023 


1 


011762 


DAC 


W4,l 




oa no 


nan OA 


-•1 


ft -to K "1 


n k n ^ 


»n*r». t f^ n ^ n f\ m 


■Til -T- r^ ^ t ^r- tJr- 


fc W W ' 


W -^ W fc^ 


"* 


U VC V A w 


U «V, w 


1 n« w ' < UU UU » 1 


I nA ^c a 1 M 1 e f^c ''^T 


2810 


05025 


-0 


005753 


DAC* 


VIO 





2777 
2778 



2779 

2780 
2781 
2782 
2783 
2784 
2785 
2786 
2787 
2788 
2789 
2790 
2791 
2792 
2793 
2794 
2795 
2796 
2797 
2798 
2799 
2800 
2S01 
2802 
2803 
2804 
2805 
2806 
2807 
2806 
2609 
281 U 
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2811 
2812 
2813 
2814 
2815 
2816 
2817 
2818 
2819 
2820 
2821 
2822 
2823 
2824 
2825 
2826 
2827 
2828 
2829 
2830 
2831 
2832 
2833 
2834 
2835 
2836 
2837 
2838 
2839 
2840 
2841 
2842 
2843 
2844 
2845 
2846 
2847 



05026 
05027 
Q5030 
05031 



05032 
05033 
05034 
05035 
05036 
05037 
05Q40 
05041 
05042 
05043 
05044 
05045 
05046 
05047 
05050 
05051 
05052 
05053 
05054 
05055 
05056 
05057 
05060 
05061 
05062 
05063 



02 00073 

06 00071 

04 00073 

01 04271 



000003 
030100 
032313 
031503 
030403 
000004 
000006 
031405 
000004 
000005 
000002 
000007 
000000 
000000 
031003 
000005 
030503 
031600 
000001 
000000 
000005 
000003 
000002 
000000 
000002 
031400 



* 
* 

CONT IDA 
ADD 
STA 
JMP 



♦ CONTINUfc STATfcHEM PROCESSOR* 



A9X4 OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 



LSTP 
LSTN 
LSTP 
C6 



ACCOUNTS FOR POSSIBLE PATH ERROR 
ACCOUNTS FOR POSSIBLE PATH ERROR 
ACCOUNTS FOR POSSIBLE PATH ERROR 



'--*THE FOLLOWING 
—-(RIGHT 6 BITS) 
000003 
030100 
032313 
031503 
030403 
000004 
000006 
031405 
000004 
000005 
000002 
000007 
000000 
000000 
031003 
000005 
030503 
031600 
000001 
000000 
000005 
00U003 
000002 
000000 
000002 
031400 



/ 

.NOT, 

.AND. 

.OR, 

.LT, 

.LE. 

.EQ, 

.GE, 

.GT. 

.NE. 

'fc' 
♦C 
♦A' 

♦X» 

♦H» 
•L' 
M ♦ 
'T» 
•F' 



US—) 
CSS— ) 
CMS--) 
CDS—) 



CLS< 



TABLE IS USED BY STATEMENT 
AND OUTPUT ITEM, 
COO) 
COl) 
(02) 
C03} 
(04) 
(05) 
C06) 
(07) 
(10) 
Cll) 
C12) 
C13) 
(14) 
CIS) 
(16) 
(17) 
C20) 
(21) 
(22) 
(23) 
(24) 
(25) 
(26) 
(27) 
(30) 
(31) 'F' (L$— ) 



ID 



(MS--) 

(E$— ) 
NC$--) 



2811 
2812 
2813 
2814 
2815 

2816 
2817 
2816 
2819 
2820 
2821 
2622 
2823 
2624 
2825 
2826 
2827 
2628 
2829 
2830 
2831 
2632 
2833 
2834 
2635 
2836 
2637 
2838 
2839 
2840 
2841 
2842 
2843 
2844 
2845 
2646 
2847 



HONEYWELL 



COMPUTER CONTROL DIVISION 



PROGRAM DOCUMENTATiON 



• C210-001-6601 (FRTN) 



3C i^0.18046v50ao 



RfcV. 



PAGfc 



d2 



2848 

2849 

2830 

2851 

2852 

2853 

2854 

2855 

2856 

2857 

2856 

2859 

2860 

2861 

2862 

2863 

2864 

2865 

2866 

2867 

2868 

2869 

2870 

2871 

2872 

2873 

2874 

2875 

2676 

2877 

2878 

2879 

2880 

2881 

2882 

2883 

2884 



05064 
05Q65 
05066 
05067 
05070 



05071 

05072 

05073 

05074 

05075 

05076 

05077 

05100 

05101 

05102 

05103 

05104 

05105 

05106 

05107 

05110 

05111 

05112 

05113 

05114 

05115 
05116 
05117 



000001 
000000 
000001 
000001 
1 177742 



00 00000 

005071 

00 00000 

00 00000 
000000 
04 05071 
02 00040 
04 05073 
02 05071 
11 007^5 

01 05104 
01 05115 
11 00051 
01 05154 

01 05142 

02 00607 
07 00756 

101040 
01 05115 
10 03116 
142730 

02 00071 
04 00040 
101040 




















OCT 
OCT 
OCT 
OCT 

A929 DAC» 

• 

« 



000001 
000000 
000001 
000001 

-30,1 



(32) 'O' 



NO. OF ITEMS IN STMNT NAME TABLE 



•FIRST NON»SPeC CHfcCK* 



AT F 



TONp pze 





NPTO EOU 


TONP 


T2NP PZE 





TINP PZE 





NPOO DAC 


• • 


STA 


NPTO 


LOA 


A 


STA 


TINP 


LOA 


NPTO 


CAS 


K107 


JMP 


• ♦2 


JMP 


NPIO 


CAS 


SPF 


JHP 


NP30 


JMP 


NP25 


LDA 


TC 


SUB 


CRET 


SNZ 




JMP 


NPIO 


JST 


EROO 


BCI 


1»EX 



IRST SHIFT IN LEVfeL FROM ZERO» WRAP-UP 
SPECIFICATION STATEMENTS 



NPIO UDA 
SNZ 



LSTN 



TO « (A) 
Tl ■ A 
a7 

TRACE STMNT. (MAY OCCUR ANYWHERE) 
TO . G,R, SPF, GO TO NP30 
TO • SPF, GO TO NP25 

IF TC • C/R 
GO TO NPIO 



ELSE, ILLEGAL STATEMENT 
SPECIFICATION STATEMENT APPfcARii AFTER 
SPECIFICATION STATEMENT ' CLE A.N-UP 

A a u5TN 



2848 

2849 

2850 

2651 

2852 

2853 

2854 

2655 

2656 

2857 

2658 

2659 

2660 

2661 

2862 

2863 

2864 

2865 

^666 

2667 

2666 

2669 

2670 

2671 

2672 

2673 

2674 

2675 

2676 

2877 

2676 

2879 

2660 

2661 

2662 

2683 

2684 
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3C '\0,ld046iOOQ 



HkV. D 



PAGe 



<i3 



2885 


05120 


01 05135 




JMP 


NP16 


2886 


05121 


10 03656 




JST 


FAOO 


2887 


05122 


02 00721 




LDA 


K103 


2688 


05123 


07 00631 




SUB 


AT 


2889 


05124 


100040 




SZE 




2890 


05125 


01 05140 




JMP 


NP20 


2891 


05126 


02 00630 




LDA 


AF 


2392 


05127 


10 14135 




JST 


osoo 


2893 


05130 


10 04233 


NH15 


JST 


LOOO 


2894 


05131 


02 00570 




LDA 


NiAMF 


2895 


05132 


07 04714 




SUB 


A9X1*16 


2896 


05133 


100040 




SZE 




2897 


05134 


10 13663 




JST 


TRSE 


2898 


05135 


02 a3073 


NP16 


LDA 


TINP 


2899 


05136 


04 00040 




STA 


A 


2900 


05137 


«0 01 05074 




JMP* 


NPOO 


2901 


05140 


10 02574 


NP20 


JST 


NROO 


2902 


05141 


01 05130 




JMP 


NP15 


2903 


05142 


02 00070 


NP25 


LDA 


LIF 


2904 


05143 


100040 




SZE 




2905 


05144 


01 05135 




JMP 


NP16 


2906 


05145 


02 00073 




LDA 


LStP 


2907 


05146 


06 00071 




ADD 


LSTN 


2908 


05147 


100040 




SZE 




2909 


05150 


01 05115 




JMP 


NPIO 


2910 


05151 


12 00073 




IRS 


LSTP 


2911 


05152 


10 03116 




JST 


EROO 


2912 


05153 


150310 




BCI 


liPH 


2913 


05154 


02 00051 


NP30 


L.DA 


SPF 


2914 


05155 


100040 




SZE 




2915 


05156 


01 05175 




JMP 


NP37 


2916 


05157 


02 00607 


NP32 


LDA 


TC 


2917 


05160 


04 05072 




STA 


T2NP 


2918 


05161 


02 00060 




LDA 


RPL 


2919 


05162 


04 00055 




STA 


XST 


2920 


05163 


02 00061 




LDA 


BDF 


2921 


05164 


100040 




SZE 





IF ZtHO, RETURN 
FfeTCH ASSIGNS 



OUTPUT STRING RPL 
DEFINE LOCATIOiM 



OUTPUT TRACE COUPLING 



NON-REL TEST 



IF LSTP ♦ LSTN «0 



'\U PATH' ERROR 
NO PATH LEADIi^JG 
IF SPF 



TO THE STATEMENT 



T2 



TC 



XST » HPL 

BLOCK DATA SUBPROGRAM FLAG 

SKIP IF NOT BLOCK DATA SUbPHUJKAi^ 



2885 
2866 
2887 
2838 
2889 
2890 
2891 
2892 
2893 
2894 
2895 
2896 
2897 
2898 
2899 
290D 
2901 
2902 
2903 
29U4 
2905 
2906 
2907 
2906 
2909 
2910 
2911 
2912 
2913 
2914 
2915 
2916 
2917 
2918 
2919 
2920 
2921 



HONEYWELL 
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3C NO, 180463000 



KtV. U 



PAGt 



84 



2922 

2923 

2924 

2925 

2926 

2927 

2928 

2929 

2930 

2931 

2932 

2933 

2934 

2935 

2936 

2937 

2938 

2939 

2940 

2941 

2942 

2943 

2944 

2945 

2946 

2947 

2948 

2949 

2950 

2951 

2952 

2953 

2954 

2955 

2956 

2957 

2958 



05165 
05166 
05167 
05170 
05171 
05172 
05173 
05174 
05175 
05176 
05177 
05200 
05201 
05202 
05203 
05204 
05205 
05206 
05207 



05210 
05211 
05212 
05213 
05214 
05215 
05ii6 



01 
04 
02 
04 
10 
01 
02 
04 
02 
04 
07 
10004 
01 
04 
02 
10 
02 
04 
01 



11375 

0OU4O 

13733 

00640 

14127 

11375 

05072 NP35 

00607 

05071 NP37 

00051 

00722 



05115 

00040 NP40 

00055 

14135 

00060 

00055 

05115 



10 02354 V3 

101040 

01 05220 

02 00643 

100040 



JMP 
STA 
LDA 
STA 
JST 
JMP 
LOA 
STA 
LDA 
STA 
SUB 
SZE 
JMP 
STA 
LOA 
JST 
LDA 
STA 
JMP 



JST 
SNZ 
JMP 
LDA 
SZE 



C2 

A 

0MI5 

DF 

OAOO 

C2 

T2NP 

TC 

TONP 

SPF 

K104 

NPIO 

A 

XST 

OSOO 

RPL 

XST 

NPIO 



SO TO RELATE COMMON 

SET LISTING FOR OCTAL AODR. 

JMP INSTRUCTION 

SET LISTING FOR SYMBOLIC INSTR 

OUTPUT ABSOLUTE 

GO TO RELATE COMMON 



SPF s TO 



SET LISTING FOR OCTAL ADDR 
LOCATION OF INITIAL JUMP 
OUTPUT STRING 



XST s RPL 
GO TO NPIO 



•IF( PROCESSOR* 

ARITHMETIC IF (SI $2 %S) 

IF $2 NOT » S3, JZE S2 
IF $3 NOT « $1, JPL S3 

(IF $1 NOT * NEXT ST Nq,, JMP $1) LATEK 
LOGICAL IF 

OUTPUT JZE 77777 (FOR STRINGING AROUND 
IMBEDDED STATEMENT) 
IIOO INPUT ITEM 



10 03116 V308 JST 



V310 
DFL 



EROO 



IMso (POSSIBLE UNARY ♦ OH •) 



iJ E^rRt55iQN u,K, 
EkROH IF(StNSfc SWITCH,, ETC) 



2922 

2923 

2924 

2925 

2926 

2927 

2928 

2929 

2930 

2931 

2932 

2933 

2934 

2935 

2936 

2937 

2938 

2939 

2940 

2941 

2942 

2943 

2944 

2945 

2946 

2947 

2948 

2949 

2950 

2951 

2952 

2953 

2954 

2955 

2956 

295? 

2-^56 



HONEYWELL 



COMPUTER CONTROL DIVISION 



PROGRAM DOCUMENTATION 
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RfcV, D 
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2959 


05217 


144706 


BCI 


1,IF 


2960 


05220 


140040 V310 


CRA 




2961 


05221 


10 


07041 


JST 


EXOO 


2962 


05222 


02 


00671 


LDA 


K4 


2963 


05223 


10 


02547 


JST 


TSOO 


2964 


05224 


140040 


CRA 




2965 


05225 


04 


00040 


STA 


A 


2966 


05226 


04 


00000 


STA 





2967 


05227 


02 


00045 


LDA 


MFL 


2968 


05230 


0414 


67 


LGL 


9 


2969 


05231 


1 04 


15400 


STA 


DP,1 


2970 


05232 


10 


13663 


JST 


TRSE 


2971 


05233 


02 


00045 


LDA 


MFL 


2972 


05234 


07 


00721 


SUB 


K103 


2973 


05235 


100040 


SZE 




2974 


05236 


01 


05253 


JMP 


V320 


2975 


05237 


02 


00070 


LDA 


LIF 


2976 


05240 


100040 


SZE 




2977 


05241 


01 


05216 


JMP 


V30e 


2978 


05242 


04 


00630 


STA 


AF 


2979 


05243 


02 


13741 


LDA 


0MJ2 


2980 


05244 


10 


14127 


JST 


OAOO 


2981 


05245 


02 


00060 


LDA 


RPL 


2982 


05246 


04 


00070 


STA 


LIF 


2983 


05247 


02 


13733 


LDA 


0MI5 


2984 


05250 


10 


14127 


JST 


OAOO 


2985 


05251 


10 


02525 


JST 


XNOO 


2986 


05252 


01 


04456 


JMP 


c§ 


2987 






• 






2988 


05253 


07 


00720 V320 


SUB 


K102 


2989 


05254 


101040 


SNZ 




2990 


05255 


01 


05216 


JMP 


V308 


2991 


05256 


02 


05321 


LDA 


V356 


2992 


05257 


04 


00041 


STA 


I 


2993 


05260 


10 


02443 Vi24 


JST 


ISOO 


2994 


05261 


10 


02676 


JST 


STXI 


2995 


05262 


02 


00040 


LDA 


A 



iLLbKAL IF STATEMENT TYPE 
(A)»0 

EXPRESSION EVALUATOR 

)-TEST 

SET A TO SPECIAL (IF) ENTRY IN DATA POOL 

SET MODE OF EXPRESSION INTO SPECIAL (IF) 



OUTPUT TRACE COUPLING (IF NECESSARY) 
CHECK MODE FLAG FOR LOGICAL 



ARITHMETIC IF 



SET AUUR OF SNZ AND JMP INSTR TO 00000 

»SN2 INSTR, 

OUTPUT ABSOLUTE 

SET LIF«CURRENT ♦DDR. (STRING bACK) 

«JMP INSTR. 
OUTPUT ABSOLUTE 
GO TO NEXT INPUT LINfc 
GO TO STATEMENT SCAN 

CHECK FOR MODte » COMPLEX 

.ERROR,... COMPLEX MODE EXPRESSIOim 
»-3 

INPUT STATEmE,><T number 
SET I ^^DEX to I 



2959 
2960 
2961 
2962 
2963 
2964 
2965 
2966 
2967 
2968 
2969 
2970 
2971 
2972 
2973 
2974 
2975 
2976 
2977 
2978 
2979 
2990 
2981 
2982 
2993 
2984 
2985 
2996 
2987 
2988 
2989 
2990 
2991 
2992 
2993 
2994 
2995 
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2996 


05263 


1 


04 


05334 




STA 


T1V3*3,1 


2997 


05264 





12 


00041 




IRS 


I 


2998 


05265 





01 


05316 




JMP 


V350 


2999 


05266 





02 


05333 




LDA 


T3V3 


3000 


05267 





11 


05332 




CAS 


T2V3 


3001 


05270 





01 


05272 




JMP 


• ♦2 


3002 


05271 





01 


05302 




JMP 


V330 


3U03 


05272 


140040 




CRA 




3004 


05273 





04 


00040 




STA 


A 


3005 


05274 





02 


13741 




LDA 


0MJ2 


3006 


05275 





04 


00640 




STA 


DF 


3007 


05276 





10 


14127 




JST 


OAOO 


3006 


05277 





02 


05332 




LDA 


T2V3 


3009 


05300 





10 


03322 




JST 


V360 


3010 


05301 





02 


05333 




LDA 


T3V3 


3011 


05302 





11 


05331 


V330 


CAS 


T1V3 


3012 


05303 





01 


05305 




JMP 


#♦2 


3013 


05304 





01 


05313 




JMP 


V340 


3014 


05305 


140040 




CRA 




3015 


05306 





04 


00040 




STA 


A 


3016 


05307 





02 


13742 




LDA 


0MJ3 


3017 


05310 





10 


14127 




JST 


OAOO 


3018 


05311 





02 


05333 




LDA 


T3V3 


3019 


05312 





10 


U5322 




JST 


V360 


3020 


05313 





02 


05331 


V340 


LDA 


T1V3 


3021 


05314 





04 


00053 




STA 


IFF 


3022 


05315 





01 


04264 




JMP 


C5 


3023 










« 






3024 


05316 





02 


00672 


V350 


LDA 


K5 


3025 


05317 





10 


02547 




JST 


TSOO 


3026 


05320 





01 


05260 




JMP 


V324 


3027 










• 






3028 


05321 


177775 


V356 


OCT 


177775 


3029 










• 






3030 










#*"■•*< 




k.^ak^.^CI tOl 


n Ki oo 


n 


r\ nr 


\ nn n 


it t £. n 


r» t (^ 


•---"--bUol 


W V ^ 


V ^^ ct. 


u 


W M w w w w 


WJVV 


U«L. 


w w 


3032 


05323 





04 


00040 




STA 


A 



SAVb BRANCH ADDRESSES 

Isl*l 

CHhCK FOR TERMINAL COMMA 

CHECK FOR ADDR-2 « ADDR-3 

ADUR-2 = ADDR-3 

aSNZ INSTR, 

OUTPUT ABSOLUTE 

OUTPUT A JMP(ADDR-2) INSTR, 

CHECK FOR ADDR-3 « ADDR-2 

ADDR-3 s ADDR-1 



«SMI IrJSTR, 
OUTPUT ABSOLUTE 

OUTPUT A JMP CADDR-3) INSTR, 

SET IFF ' ADDR-1 
GO TO ILL-TERM 



COHHA TEST 

INPUT NEXT STATEMENT NO, 



SUBROUTINE TO OUfPuT A RELATIVE JMP 

SfcT AUUR, OF JUMP KfcF , TO A 



2996 
2997 
2998 
2999 
3000 
3001 
3002 
3003 
3004 
3005 
3006 
3007 
3008 
3009 
3010 
3011 
3012 
3013 
3014 
3015 
3016 
3017 
3018 
3019 
3020 
3021 
3022 
3023 
3024 
3025 
3026 
3027 
3028 
3029 
3030 
3051 
3032 
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PAul: 



37 



3033 05324 

3034 05325 

3035 05326 

3036 05327 

3037 05330 
3038 

3039 05331 

3040 05332 

3041 05333 
3042 

3043 
3044 
3045 
3046 
3047 
3048 
3049 
3050 

3051 05334 

3052 05335 

3053 05336 

3054 05337 

3055 05340 

3056 05341 

3057 05342 

3058 05343 

3059 05344 

3060 05345 

3061 05346 

3062 05347 

3063 05350 

3064 05351 

3065 05352 

3066 05353 

3067 05354 

3068 05355 

3069 05356 



140040 
000201 
02 13733 
10 12467 
-0 01 05322 



CRA 
lAB 
LDA 
JST 
JMP» 



00 00000 T1V3 «•• 

00 00000 T2V3 ••• 

00 00000 T3V3 *•• 

* 

« 
* 

10 02525 R7 JST 

100040 SZE 

01 U5343 JMP 

10 02443 JST 

02 00040 LDA 

04 00053 STA 

01 04264 JMP 

02 00643 K7B LDA 

100040 SZE 

01 05356 JMP 

10 02437 JST 

0400 40 LRL 

02 13740 LDA 

10 12467 JST 

02 00752 LDA 

10 02547 JST 

10 05414 JST 

01 04262 JMP 

10 05414 R7D JST 



0MI5 
OBOO 
V360 



• « 



SET (B) s 

Sbl (A) s JMP INSTR, 

OUTPUT OA 

EXIT 

AUDK-1 
ADDR-2 
AUUR-i 



•GO TO* 

CHECK FOR NORMAL (R74UJ, COMPUTED (R710) OR 

ASSIGNED (R730), INPUT BRANCH LIST USED BY bOTH 
R710 AND R730 FOR STATEMENT NO, LIST, 



XNOO 

R78 

ISOO 

A 

IFF 

C5 

DFL 

R7D 

IROO 

32 

K206 

OBOO 

K134 

TSOO 

IBOO 

86 

IBOO 



EXAMlNfc NEXT CHAN 

GO TO TEST DFl 
INPUT STM.^JT » 
(GO To 20) 
IFF s A 
GO TO ILLTERM 



GO TO I (10, 20, 30) 

OUTPUT JMp# INSTRUCTION 
OUTPUT OA 

, TESr 

INPUT BRANCH LIST 

QQ TQ JUMP 

INPUT BRA,yCH ^.IST UC TO (10,11,12), I 



3033 
3U34 
3035 
3U36 
3037 
3038 
3U39 
3040 
3041 
3042 
3043 
3044 
3045 
3U46 
3047 
304d 
3049 
3050 
3051 
3052 
3053 
3U54 
3055 
3056 
3057 
3058 
3Q59 
3060 
3061 
3062 
3063 
3064 
3065 
3066 
3067 
3068 
3069 
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SC .^0,1804630UU 



KfcV, D 



PALiC 



6b 



3070 
3071 
3072 
3073 
3074 
3075 
3076 
3077 
3078 
3079 
3080 
3081 
3082 
3083 
3064 
3085 
3086 
3087 
3088 
3089 
3090 
3091 
3092 
3093 
3094 
3095 
3096 
3097 
3098 
3099 
3100 
3101 
3102 
3103 
3104 
3105 
3106 



05357 
05360 
05361 
05362 
05363 
05364 
05365 
05366 
05367 
05370 
05371 
05372 
05373 
05374 
05375 
05376 
05377 
05400 
05401 
05402 

05403 
05404 
05405 
05406 
05407 
05410 
05411 
05412 
05413 



05414 
05415 
0^416 
05417 



02 
10 
10 
0400 
02 
10 
14004 
04 
04 
02 
10 
02 
04 
02 
10 
02 
07 
04 
10 
02 
04 
10 
10104 
01 
0410 
02 
10 
02 
01 



00752 

02547 

2437 

40 

13735 

12467 



00040 

00630 

05442 

14127 

00060 

00630 

13753 

13773 

U0li3 

00717 

00041 

02676 

15400 

00040 

02672 



04262 

60 

13733 

12467 

00041 

05377 



R7F 



000000 

02 00113 

Q 07 0Q717 

04 00041 



LDA 
JST 
JST 
LRL 
LOA 
JST 
CRA 
STA 
STA 
LDA 
JST 
LDA 
STA 
LOA 
JST 
LDA 
SUB 
STA 
JST 
LDA 
STA 
JST 
SNZ 
JMP 
LLL 
LDA 
JST 
LOA 
JMP 



IBOO DAC 
LDA 

SU8 
STA 



K134 

TSOO 

IROO 

32 

K200 

OBOO 

A 

AF 

K75 

OAOO 

RPL 

AF 

K207 

OROO 

LO 

KlOl 

I 

STXI 

DP,1 

A 

STXA 



, TEST 

INPUT INT VAR 

OUTPUT LDA 
OUTPUT OA 



CAUSfc OCTAL ADDRESS IN LISTING 
OUTPUT ABS (STA 0) - INDtX LOAU 
CAUSt RPL TO tit IN LISTING 
OUTPUT RELATIVE (JMP RPLil) 

1 « L (0) 



FINISHED LOOPING ON LIST 



OUTPUT JMP INSTRUCTIONS 
OUTPUT OA (JMP 0) 



B6 
16 

K201 
OBOO 
I 
R7F 

•INPUT BRANCH LIST* 

INPUT STATEMENT NO, LISTS FqR GO TO PROCESSOR 
*« 

LO 

K 1 1 

I I s LU-1 



3070 
3071 
3072 
3073 
3074 
3075 
3076 
3U77 
3078 
3079 
3080 
3081 
3082 
3083 
3084 
3085 
3086 
3087 
3088 
3089 
3090 
3091 
3092 
3093 
3094 
3095 
3096 
3097 
3098 
3099 
3100 
3101 
3102 
3103 
3104 
31 Q5 
3106 
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3107 05420 10 01256 JST CHOO INPUT CHA» 

3103 05421 02 00702 LDA K17 ^ 31Q7 

3109 05422 10 02547 JST TSOO {- ThST ^^^^ 

3110 05423 10 02443 1810 JST ISOO INPUT '^Tmwt « ^1°^ 

3111 05424 10 02676 JST STXI ^^ 3110 

3112 05425 02 00040 LDA A 2111 

3113 05426 1 04 15400 ^ STA DP,1 SET POINTER OF ST. .0. INTO T.UD TABU till 

3115 05427 02 00041 LDA I np'^Jj) - a ^^^^ 

3116 05430 07 00717 SUB KlOl " ^115 

3117 05431 04 00041 STA I I « i.i "^ll^ 

3118 05432 02 00607 LDA TC F TC » ro in ram ^^^^ 

3119 05433 07 00672 SU3 K5 U^ TC » . GO TO IBIO 3X^8 

3120 05434 101040 SNZ ^1^9 

312P nils! ?.n°Lf '^^ ^'^^ ^^^0 CONTINUE LOOP 'J'J 

3122 05436 140040 CRA 3121 

3123 05437 1 04 15377 STA DP-l,! SET tND F. Ar T^rn ta^, u ^^22 

3^25 oiJ:? S ii? S?!?! ^^^ '''' )' INP t' p1n^^'° '^'^^ ^J23 

3125 05441 -0 01 05414 JmP* 1800 pyiT ^^^4 

3126 05442 04 00000 K75 STA ^^25 

3127 ♦ 3126 

3128 * 3127 

3129 * 3128 

?}?? * MSSIGN. 3129 

3i33 05443 10 02443:3 JST ^slT ''''''''' liru.%1''^^^^^^ ^ 

3134 05444 02 00040 LDA A ^^ 3133 

3135 05445 04 05506 STA T1W3 SAVE A ^^^"^ 

3136 05446 02 00607 LDA TC 3135 

lllllVAl lll,r°' ir, ''* CH.CKroRTO lit', 

lul ll'li I Si lltn iT, :'" ^l-^'^ * ^0" OUTPUT «EL ^i^« 

3H2 05454 02 00607 IDA TC "*l 

3143 05455 07 00706 SUB K35 ^1*2 

3l4i 



H O N E y W HJ i-i 1j LumruicK cuNiRul wiViSiwR 



PROGRAM DOCUMENTATION 



» C210-001-6601 (FRTN) 



3C NQ.1804630J0 KbV. D PAGt 90 



^ , 3144 

3144 05456 101040_ SNZ 3j^45 



3145 05457 01 05462 JMP »*3 



ERROR ^^*5 



3146 05460 10 03116 W305 JST EROO tRRUW ^^^_^ ctitpmpnt 3147 

3147 05461 152317 BCI l.TO GO TO IN ASblG,N. STATEMENT ^147 

3148 05462 02 00060 LDA RPL ^^49 



OUTPUT REL LUA •♦2 ^j'U 

OUTPUT LDA ♦♦2 ^*?i 



3149 05463 06 00720 ADD K102 

3150 05464 04 00630 STA AF 

3151 05465 02 13735 LDA K200 ., . - ^-.- - 

3152 05466 10 13773 JST OROO OUTPUT REl ^J^2 

3153 05467 02 00060 LDA RPL 3^54 

3154 05470 06 00720 ADD K102 ^..tdut dc. imd .*9 3155 

3155 05471 04 00630 STA AF OUTPUT REL JMP •♦2 ^J^^ 

3156 05472 02 13733 LDA K201 nnro .t ha 3157 

3157 05473 10 13773 JST OROO OUTPUT OA ^J^^ 

3158 05474 0400 40 LRL 32 ^-^59 

3159 05475 02 05506 LDA T1W3 nc^^rnu- * 3160 

3160 05476 04 00Q40 STA A RESTQRt A ^*^^ 

3161 05477 140040 CRA m.TDi.T nir ct wn 3162 

3162 05500 10 12467 JST OBOO ?^Imt tSJcrcI' war! 4Rl E 3163 

3163 05501 10 02437 JST IROO INPUT INTEGER VARIABLE |5i9j 

3164 05502 0400 40 LRL 32 nurom cta iMCTPurTTnw 3165 

3165 05503 02 13736 LDA K202 OUTPUT STA INSTRUCTION ^^ 

3166 05504 10 12467 JST OBOO rn jV cA TEST ^^67 

3167 05505 01 04266 JMP Al ?cmp JnL 3168 

3168 05506 00 00000 T1W3 PZE •♦ T^MP i>TORE ^^^^ 

3169 • 3170 

3170 • #♦#»#»••»♦##»»»• *5171 
3^72 I #00 STATEMENT PROCESSOR* ^JJ^ 

3^74 • STACK INFO IN DO TABLE. OUTPUT DO INITIAL ^^Yyl 

3175 ♦ OODE 3^7^ 

3176 05507 00 00000 C9T0 PZE •» ctatc^p.t « 3177 

3177 05510 10 02443 C9 JST ISOO .nM^L^^iJlx ' 3178 

3178 05511 10 02574 JST NROO MON-RtL TEST ^^^^ 

3179 05512 02 00040 LDA A , , 318U 

3180 05513 04 05507 STA C9T0 Tu « A 
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PAbb 



91 



3181 


05514 


10 01251 




JST 


UCOO 


UNINPUT COLUMN 


3182 


05515 


10 02437 




JST 


IROO 




3183 


05516 


02 05525 




LDA 


C951 




3184 


05517 


10 02547 




JST 


TSOO 




3185 


05520 


02 05507 




LDA 


C9T0 


(A) s TO 


3186 


05521 


000201 




lAB 






3187 


05522 


10 06702 




JST 


DPOO 


DO INPUT 


3188 


05523 


10 06747 




JST 


DSOO 


DO INITIALIZE 


3189 


05524 


01 04264 




JMP 


C5 


GO TO ILLTERM 


3190 


05525 


000016 


C951 


OCT 


16 




3191 






• 








3192 






• 








3193 






« 








3194 






• 




•END riLfe* 




3195 






• 








3196 






• 




*••*•«••••« 




3197 






* 




•BACKSPACE* 




3198 






• 




•REWIND » 




3199 






• 




••••••••••• 




3200 


05526 


02 05537 


V6 


LDA 


K71 




3201 


05527 


04 00571 


V6A 


STA 


NAMF*1 




3202 


05530 


10 02722 




JST 


NFOO 


StT UR NAMF 


3203 


05531 


10 12337 




JST 


0100 


OUTPUT I/O LINK 


3204 


05532 


01 04266 




JMP 


Al 


GO TO C/R TEST 


3205 


05533 


02 05540 


V7 


LDA 


K72 




3206 


05534 


01 05527 




JMP 


V6A 




3207 


05535 


02 05541 


V8 


LDA 


K73 




3208 


05536 


01 05527 




JMP 


y6A 




3209 


05537 


143316 


K71 


8CI 


1#FN 


FN 


3210 


05540 


142316 


K72 


BCI 


1,DN 




3211 


05541 


141316 


K73 


BCI 


1»BN 


BN 


3212 






• 








3213 






• 








3214 






• 






• • 


3215 






• 




• READ 


• 


3216 






• 




•WRITE 


• 


3217 






• 




•INPUT FORMA 


T« 



3181 

3162 

3183 

v5184 

3189 

3186 

3187 

3188 

3189 

3190 

3191 

3192 

3193 

3194 

3195 

3196 

3197 

3198 

3199 

32Q0 

32Qi 

3202 

3203 

3204 

3205 

3206 

3207 

3208 

3209 

321Q 

3211 

3212 

3213 

3214 

3215 

3216 

3217 
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92 



3218 
3219 
3220 
3221 
3222 
3223 
3224 

3225 05542 

3226 05543 

3227 05544 

3228 05545 

3229 05546 

3230 05547 

3231 05550 

3232 05551 

3233 05552 

3234 05553 

3235 05554 

3236 05555 

3237 05556 

3238 05557 

3239 05560 

3240 05561 

3241 05562 

3242 05563 

3243 05564 

3244 05565 

3245 05566 

3246 05567 

3247 05570 

3248 05571 

3249 05572 

3250 05573 

3251 05574 

3252 05575 

3253 05576 

3254 05577 



00 00000 T0V5 PZE 

02 00710 V5 LDA 

04 00571 STA 

10 02525 JST 

100040 SZE 

01 05554 JMP 

02 05736 LDA 

01 05754 JMP 

02 00707 V4 LDA 

04 00571 STA 

10 02722 V5A JST 

02 00057 LDA 

04 05732 STA 

10 01256 JST 

D 02 00702 LDA 

10 02547 JST 

10 12337 JST 

02 00607 LDA 

07 00752 SUB 

100040 SZE 

01 05726 JMP 

10 05740 JST 

10 02555 V5B JST 

02 00607 LDA 

07 00756 SUB 

100040 SZE 

01 05603 JMP 

02 00711 V582 LDA 

04 00571 STA 

10 12363 JST 



LIST ELEMENT DATA AND IMPLIED DO CONTROL 
STACKED IN TRIAU TABLE. PROCESSED BY 
OUTPUT TRIAD ROUriisiE, SPECIAL OPERATORS 



ARE -I 
T 



*• 

K41 

NAMr*l 
XNOO 

V5A 

V5K4 

VIOA 

K40 

NAMF*1 

Nroo 

D 

V5T1 

CHOO 

K17 

TSQO 

0100 

TC 

K134 

V5J 

V5X 

IPOO 

TC 

CHET 

V5C 

K42 

NAMF*1 

CNCO 



DO INITIALIZATION 
DO TERMINATION 
I/O ARU TRANSFER 

FSRN 

EXAM NEXT CHAR 

GENERAL READ 

CARD READ 
NAMF s r$WN 

SET UP REMAINING NAME 



INPUT CHARACTER 

«'250. ,.,..( 

(-TEoT 

OUTPUT 10 LINK 

IF TC ,NE. , 

«'17 (,) 

GO TO V5J 

INPUT FORMAT 

) - INPUT OPERATOR 

TEST FOR TC = C/h? 

HOt GO TO V5C 
YES, NAMF s ND 

CALL 'MAMt 



321{J 
3219 
3220 
3221 
3222 
3223 
3224 
3225 
3226 
3227 
3226 
3229 
3230 
3231 
3232 
3233 
3234 
3235 
3236 
3237 
3238 
3239 
3240 
3241 
3242 
3243 
3244 
3245 
3246 
3247 
3248 
3249 
3250 
3251 
3252 
3253 
3254 
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3255 


05600 


02 


05732 


LDA 


V5T1 


3256 


05601 


04 


00057 


STA 


D 


3257 


05602 


01 


04266 


JMP 


Al 


3258 


05603 


10 


01251 V5C 


JST 


UCOO 


3259 


05604 


140040 V5C5 


CRA 




3260 


05605 


04 


00654 


STA 


I OF 


3261 


05606 


10 


02354 V5D 


JST 


IIOO 


3262 


05607 


100040 


SZE 




3263 


05610 


01 


05625 


JMP 


V5E 


3264 


05611 


02 


g0702 


LDA 


K17 


3265 


05612 


10 


02547 


JST 


TSOO 


3266 


05613 


140040 


CRA 




3267 


05614 


04 


00577 


STA 


02 


3268 


05615 


02 


00654 


LDA 


lOF 


3269 


05616 


04 


00576 


STA 


01 


3270 


05617 


D 02 


05733 


UDA 


V5K1 


3271 


05620 


04 


00600 


STA 


P 


3272 


05621 


10 


10436 


JST 


ETOO 


3273 


05622 


02 


00044 


LDA 


L 


3274 


05623 


04 


00654 


STA 


I OF 


3275 


05624 


01 


05606 


JMP 


V5D 


3276 


05625 


10 


02611 V5E 


JST 


NCOO 


3277 


05626 


02 


00655 


LDA 


lu 


3278 


05627 


07 


00721 


SUB 


K103 


3279 


05630 


100040 


SZE 




3280 


05631 


01 


05675 


JMP 


V5H 


3281 


05632 


02 


00607 


LDA 


TC 


3282 


05633 


07 


00702 


SUB 


K17 


3283 


05634 


100040 


SZE 




3284 


05635 


01 


05673 


JMP 


V5G 


3285 


05636 


02 


00633 


LDA 


DO 


3286 


05637 


04 


05542 


STA 


T0V5 


3287 


05640 


02 


00721 


LDA 


K103 


3288 


05641 


140407 


TCA 




3289 


05642 


10 


07041 


JST 


EXOO 


3290 


05643 


02 


03542 


LDA 


T0V5 


3291 


05644 


04 


00633 


STA 


DO 



tiO TO C/R TEST 

IGF 5 U 
I^JPUT ITEM 

IF (A) NOT 0. GO TO V5E 

C-TEiiT 

02 = 

01 » lOF 
s»27 



lOF « L 
GO TO V5D 
NON-CONSTANT TEST 
IF lU NOT ARR 



GO TO V5H 

IF TC NOT -(, 

liO TO V5G 
T5 « DO 

EXPRESSION 
DO » T5 



3255 
3256 
3257 
3256 
3259 
3260 
3261 
3262 
3263 
5264 
3265 
3266 
3267 
3268 
3269 
3270 
3271 
3272 
3273 
3274 
3275 
3276 
3277 
3278 
3279 
3280 
3281 
3282 
3283 
3284 
3285 
3286 
3287 
3288 
3289 
3290 
3291 



HONEYWELL 



COMPUTER CONTROL DIVISION 



PROGRAM DOCUMENTATION 



# C210-001-6601 (FRTN) 
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RtV. D 



PAGE 



94 



3292 


05645 


02 


00040 


V5E5 


LDA 


A 


3293 


05646 


04 


00577 




STA 


02 


3294 


05647 


02 


00633 




LDA 


DO 


3295 


05630 


04 


00576 




STA 


01 


3296 


05651 


02 


05734 




LDA 


V5K2 


3297 


05652 


04 


00600 




STA 


P 


3296 


05653 


10 


10436 




JST 


ETOO 


3299 


05654 


02 


00607 


V5E7 


LDA 


TC 


3300 


05655 


07 


00752 




SUB 


K134 


3301 


05656 


101040 




SNZ 




3302 


05657 


01 


056U6 




JMP 


V5D 


3303 


05660 


02 


00654 




LDA 


lOF 


3304 


05661 


04 


00041 




STA 


I 


3305 


05662 


10U040 




SZE 




3306 


05663 


01 


05666 




JMP 


V5F 


3307 


05664 


10 


12700 




JST 


OTOO 


3308 


05665 


01 


05575 




JMP 


V5B2 


3309 


05666 


10 


02555 


V5F 


JST 


IPOO 


3310 


05667 


10 


02676 




JST 


STXI 


3311 


05670 


1 02 


15401 




LDA 


DP*1,1 


3312 


05671 


04 


00654 




STA 


lOF 


3313 


05672 


01 


05654 




JMP 


V5E7 


3314 


05673 


10 


04005 


V5G 


JST 


KfOO 


3315 


05674 


01 


05645 




JMP 


V5E5 


3316 


05675 


10 


03642 


V5H 


JST 


TVOO 


3317 


05676 


02 


00607 




LDA 


TC 


3318 


05677 


07 


00701 




SUB 


K16X 


3319 


05700 


100040 




SZE 




3320 


05701 


01 


05645 




JMP 


V5E5 


3321 


05702 


10 


02635 




JST 


ITOO 


3322 


05703 


02 


00654 




LDA 


lOF 


3323 


05704 


101040 




SNZ 




3324 


05705 


01 


05711 




JMP 


V5H7 


3325 


05706 


07 


00044 




SUB 


L 


3326 


05707 


100040 




SZE 




3327 


05710 


01 


Q5713 




J HP 


• ♦3 


3326 


05711 


10 


03116 


V5H7 


JST 


EROO 



02 = DU 


«'32 




ENTER 
IF TC 
00 TO 


TRIAD 
s COMMA 
V5D 


I « lUF 


IF iMOT ZEROi 
00 TU V5r 
OUTPUT TRIADS 
GO TO V5B2 
)-INPUT OPERATOR 


lOF = 


01 (I) 


K 5 = WDS/ITEm 
GO TO V5E5 
TAG VARIABLE 


«'lej (3) 
GO TO V5E5 
ELSE, 
INTEijfcR TEST 



IF lOF 3 ZERO OR L 



t-Rwnw 



3292 
3293 
3294 
3295 
3296 
3297 
3298 
3299 
3300 
3301 
3302 
3303 
3304 
3305 
3306 
3307 
3306 
3309 
3310 
3311 
3312 
3313 
3314 
3315 
3316 
3317 
3316 
3319 
3320 
3321 
3322 
3323 
3324 
3325 
3326 
3327 
332tt 
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3329 


05712 


150322 




BCI 


1,PR 


3330 


05713 


10 


06702 




JST 


DPOO 


3331 


05714 


02 


00654 




LDA 


lOF 


3332 


05715 


04 


00041 




STA 


I 


3333 


05716 


10 


02676 




JST 


STXI 


3334 


05717 


02 


00057 




LDA 


D 


3335 


05720 


1 04 


15400 




STA 


DP,1 


3336 


05721 


04 


00577 




STA 


02 


3337 


05722 


02 


05735 




LOA 


V5K3 


3338 


05723 


04 


00600 




STA 


P 


3339 


05724 


10 


10436 




JST 


ETOO 


3340 


05725 


01 


05666 




JMP 


V5F 


3341 


05726 


140040 


V5J 


CRA 




3342 


05727 


04 


00040 




STA 


A 


3343 


05730 


10 


14127 




JST 


OAOO 


3344 


05731 


Ul 


05570 




JMP 


V5B 


3345 


05732 


00 


00000 


V5T1 


PZE 





3346 


05733 


000027 


V5K1 


OCT 


27 


3347 


05734 


000032 


V9K2 


OCT 


32 


3348 


05735 


000030 


V5K3 


OCT 


30 


3349 


05736 


151263 


V5K4 


8CI 


1,R3 


3350 


05737 


153664 


V5K5 


BCI 


liW4 


3351 


09740 


000000 


V5X 


DAC 


• • 


3352 


05741 


10 


02525 




JST 


XNOO 


3353 


05742 


100040 




SZE 




3354 


05743 


01 


05750 




JMP 


V5X5 


3355 


05744 


10 


02443 




JST 


ISOO 


3356 


05745 


0400 


40 


V5X2 


URL 


32 


3357 


05746 


10 


12467 




JST 


OBOO 


3358 


05747 


-0 01 


05740 




JMP* 


V5X 


3359 


05790 


10 


02373 


V5X5 


JST 


NAOO 


3360 


05751 


10 


026^6 




JST 


ATOO 


3361 


05752 


01 


05745 




JMP 


V5X2 


3362 








• 




PRINT 


3363 


05753 


02 


Q5737 


VIO 


LDA 


V5K5 


3364 


05754 


04 


00571 


VIOA 


STA 


NAMF*1 


3365 


05755 


10 


02722 




JST 


NFOO 



PARENTHESES MISSING IN DO SFATtMENT 
DO INPUT 



02( lUF ) m D 
02 s U 
■ •30 



ENTER TRIAD 'TS 



A s 

OUTPUT ABSOLUTE 



INPUT FORMAT 

EXAM NEXT CHARACTER 

GO TO INPUT ARRAY NAME 

INPUT STMNT NO, 

OUTPUT DAC A 

OUTPUT OA 

RETURN 

INPUT NAME 

ARRAY TEST 



PRINTtR 

SET UP REST OF NAME 



3329 
3330 
3331 
3332 
3333 
3334 
3335 
3336 
3337 
3338 
3339 
3340 
3341 
3342 
3343 
3344 
3345 
3346 
3347 
3348 
3349 
3350 
3351 
3352 
3353 
3354 
3355 
3356 
3357 
3358 
3359 
3360 
3361 
3362 
3363 
3364 
3365 



HONEYWELL 



COMPUTER CONTROL DIVISION 



PROGRAM DOCUMENTATION 



• C210-001-6601 (FRTN) 



6C NO, 180463000 



HfcV, D 



PAGfc 



96 



3366 
3367 
3366 
3369 
3370 
3371 
3372 
3373 
3374 
3375 
3376 
3377 

T t "f r> 

3379 
3360 
3381 
3382 
3363 
3384 
3385 
3336 
3387 
3388 
3389 
3390 
3391 
3392 
3393 
3394 
3395 
3396 
3397 
3398 
3399 
3400 
34 01 
3402 



05756 
05757 
05760 
05761 
05762 
05763 
05764 
05765 
05766 



05767 
05770 



10 12363 
10 03740 
02 00607 
07 00752 
X00040 
01 05575 
02 00057 
04 05732 
01 05604 



JST 
JST 
LDA 
SUB 
SZE 
JMP 
LDA 
STA 
JMP 



05771 
05772 
05773 
05774 
05775 
05776 
05777 
06000 
06001 
06002 
06003 
06004 
06005 
06006 
06007 
06010 140040 



00 00000 

00 00000 

005767 

005770 

02 00702 

10 12437 

140040 

04 0S767 

02 00073 

100040 

01 06126 

10 06160 

100040 

01 06012 

02 00607 

07 00676 

100040 

01 06070 
rt 1 n n&i « < 



T0V2 PZE 

T2V2 PZE 

V2T0 EQU 

V2T2 EQU 

V2 LDA 

JST 

CRA 

STA 

LDA 

SZE 

JMP 

JST 

SZE 

JMP 

V2A1 LDA 

SUB 

SZE 

JMP 

>J ■J i 

CRA 



V2A 



CNOO 
V5X 
TC 
K134 

V5B2 
D 

V5T1 
V5C5 



CALL NAME 
INPUT FORMAT 



SKIP IF COMMA 



•FORMAT ♦ 

•INPUT FORMAT STRING # 

•INPUT NUMERIC FORMAT STR» 

•NON ZERO TEST STRING • 







T0V2 

T2V2 

K17 

OKdO 

T0V2 
LSTP 

V2K 
SIOO 

V2B 

TC 

K12 

V2F 



OUTPUT RACK 

TO « 

IF LSTOP ,IS|E, 

UO TO V2K 

INPUT FORMAT STRING 



IF TC NOT MINUS 

liO TO V2F 

INPUT NUMERIC FORMAT STRING 



3366 
3367 
3368 
3369 
3370 
3371 
3372 
3373 
3374 
3375 
33^ 
3377 
3378 
3379 
3380 
3381 
3382 
3383 
3384 
3385 
3386 
3387 
3388 
3369 
3390 
3391 
3392 
3393 
3394 
3395 
3396 
3397 
3398 
3399 
3400 
3401 
3402 



HONEYWELL 



COMPUTER CONTROL DIVISION 



PROGRAM DOCUMENTATION 



• C210-001-6601 (FRTN) 



vSC I'^IQ, 180463000 



RfcV. u 



PAGfc 97 



3403 


06011 


04 01475 


STA 


TIU 


3404 


06012 


02 00607 V2B 


LDA 


TC 


3405 


06013 


07 06224 


SUB 


K46 


3406 


06014 


100040 


SZE 




3407 


06015 


01 06117 


JMP 


V2H 


3408 


06016 


10 06160 


JST 


SIOO 


3409 


06017 


100040 


SZE 




3410 


06020 


10 06145 


JST 


NZOO 


3411 


06021 


02 00607 V2C 


IDA 


TC 


3412 


06022 


11 U2543 


CAS 


K52 


3413 


06023 


101000 


NOP 




3414 


06024 


01 06026 


JMP 


• ♦2 


3415 


06025 


01 06036 


JMP 


V2DA 


3416 


06026 


11 06230 


CAS 


K53 


3417 


06027 


01 06057 


JMP 


V2E5-2 


3418 


06030 


101000 


NOP 




3419 


06031 


10 06153 


JST 


INOO 


3420 


06032 


10 06145 


JST 


NZOO 


3421 


06033 


02 00675 


LDA 


KIO 


3422 


06034 


10 02547 


JST 


TSOO 


3423 


06035 


10 06153 V2D 


JST 


INOO 


3424 


06036 


02 00607 V2DA 


LDA 


TC 


3425 


06037 


07 00671 


SUB 


K4 


3426 


06040 


100040 


SZE 




3427 


06041 


01 06052 


JMP 


V2E 


3428 


06042 


10 01256 


JST 


CHOO 


3429 


06043 


10 12437 


JST 


OKOO 


3430 


06044 


02 03767 


LDA 


T0V2 


3431 


06045 


07 00717 


SUB 


KlOl 


3432 


06046 


04 05767 


STA 


T0V2 


3433 


06047 


100400 


SPL 




3434 


06050 


01 04266 


JMP 


V2N 


3435 


06051 


01 06036 


JMP 


V20A 


3436 




tt 






3437 


06052 


02 00607 V2E 


LDA 


TC 


3436 


06053 


07 00672 


SU3 


K5 


3439 


06054 


101040 


SNZ 





TID = 

IF TC ,NE. P 



GO TO V2H 

INPUT FORMAT STRING 

IF (A) .NE. 

IF TC = D,E»F, OR G 



INPUT NUMERIC FORMAT STRlNb 
NON-ZERO STRING TEST 

PERIOD TEST 

INPUT NUMERIC FORMAT STRING 

IF TC = ) 



INPUT CHAR AND OUTPUT PACK 
IF F4 ♦ ( a ( 
GO TO V2E 



ELSE, 

GO TO C/R TEST 
IF TC «, 



3403 

3404 

3405 

3406 

3407 

3408 

3409 

3410 

3411 

3412 

3413 

3414 

3415 

3416 

3417 

3418 

3419 

3420 

3421 

3422 

3423 

3424 

3425 

3426 

3427 

3428 

3429 

3430 

3431 

3432 

3433 

3434 

3435 

3436 

3437 

3438 

3439 



HONEYWELL 



COMPUTER CONTROL DIVISION 



PROGRAM DOCUMENTATION 



• C210-001-6601 CFRTN) 



3C NO. 180463000 



RfcV. D 



PAGfc 



98 



3440 
3441 
3442 
3443 
3444 
3445 
3446 
3447 
3446 
3449 
3450 
3451 
3452 
3453 
3454 
3455 
3456 
3457 
3456 
3459 
3460 
3461 
3462 
3463 
3464 
3465 
3466 
3467 
3468 
3469 
3470 
3471 
3472 
3473 
3474 

t4l7Si 



06055 
06056 
06057 
06060 
06061 
06062 
06063 
06064 
06065 
06066 
06067 
06070 
06071 
06072 
06073 
60 74 
06075 
06076 
06077 
06100 
06101 
06102 
06103 
06104 
06105 
06106 
06107 
06110 
06111 
06112 
06113 
06114 
06115 
06116 
06117 



01 
02 
10 
01 
10 
10004 
01 
02 
10004 
01 
01 
02 
11 
01 
01 
11 
01 
01 
11 
01 
01 
02 
11 
01 
01 
11 
01 
01 
07 
10004 
01 
10 
10 
01 
10 



06000 

00674 

02547 

06000 

06160 



06012 

00643 



06036 

06003 

00607 

02544 

06074 

06212 

06225 

06077 

06061 

00702 

06102 

06215 

00607 

06226 

06106 

06114 

00712 

06111 

06114 

06227 



06021 

06153 

Q 61 4 5 

06036 

06145 







n no nnf^ny 



3476 06121 07 02544 



JMP 
LDA 
JST 
JMP 

V2E5 JST 
SZE 
JMP 
UDA 
SZE 
JMP 
JMP 

V2F LDA 
CAS 
JMP 
JMP 

V2FB CAS 
JMP 
JMP 
CAS 
JMP 
JMP 
LDA 
CAS 
JMP 
JMP 
CAS 
JMP 
JMP 
SUB 
SZE 
JMP 
JST 
JST 
JMP 
JST 

I HA 

SUB 



V2G 



V2H 



V2A 

K9 

TSOO 

V2A 

SlOO 

V2B 

DFL 

V20A 
V2A1 
TC 
K4a 

• ♦2 
V2P 
K47 

• ♦2 
V2E5 
K17 

• ♦2 
V2Q 
TC 
K49 

• ♦2 
V26 
K50 

• ♦2 
V2G 
K51 

V2C 

INOO 

NZOO 

y20A 

NZOO 

TC 

K4a 



GO TO V2A 

/ TfcSr 

INPUT FORMAT STRING 

IF (A) NOT 0, 

GO TO V2B 

IF DFL .NE, ZERO, 

GO TO V2DA 

IF TC ■ H 

GO TU V2P 



IF TC « (, 

GO TO V2Q 

IF TC ,NE. A, I, OR L 

A 



INPUT NUMERIC FORMAT STRING 
NON-ZfcRO STRING TEST 

NON-ZfcKO STRING TEST 

It Tr H Li 



344U 
3441 
3442 
3443 
3444 
3445 
3446 
3447 
3448 
3449 
3450 
3451 
3452 
3453 
3454 
3455 
3456 
3457 
3458 
3459 
3460 
3461 
3462 
3463 
3464 
3465 
3466 
3467 
3468 
3469 
3470 
3471 
3472 
3473 
3474 
3475 
3476 



HONEYWELL 



COMPUTER CONTROL DIVISION 



PROGRAM DOCUMENTATION 



♦ C210''001-6601 (FRTN) 



v5C NO.l8046iOUO 



REV. D 



PAGE 



99 



3477 


06122 


100040 




SZE 




3478 


06123 


01 06070 




JMP 


V2F 


3479 


06124 


10 06664 


V2J 


JST 


HSOO 


3480 


06125 


01 06061 




JMP 


V2E5 


3481 


06126 


02 00071 


V2K 


LDA 


LSTN 


3482 


06127 


100040 




SZE 




3483 


0613Q 


01 06133 




JMP 


#♦3 


3484 


06131 


10 03116 




JST 


EROO 


3485 


06132 


147306 




8CI 


l.NF 


3486 


06133 


02 00060 




LDA 


RPL 


3487 


06134 


04 00070 




STA 


LIF 


3468 


06135 


140040 




CRA 




3489 


06136 


04 00040 




STA 


A 


3490 


06137 


04 00630 




STA 


AF 


3491 


06140 


141206 




AOA 




3492 


06141 


04 00640 




STA 


DF 


3493 


06142 


02 13733 




LDA 


K201 


3494 


06143 


10 14127 




JST 


OAOO 


3495 


06144 


01 06000 




JMP 


V2A 


3496 






* 






3497 


06145 


000000 


NZOO 


DAC 


• * 


3498 


06146 


02 01475 




LDA 


TID 


3499 


06147 


10QU40 




SZE 




3500 


06150 


-0 01 06145 




JMP* 


NZOO 


3501 


06151 


10 03116 


NZIO 


JST 


EROO 


3502 


06152 


147332 




BCI 


1#NZ 


3503 


06153 


000000 


INOO 


DAC 


• • 


3504 


06154 


10 06160 




JST 


SIOO 


3505 


06155 


100040 




SZE 




3506 


06156 


-0 01 06153 




JMP* 


INOO 


3507 


06157 


01 06151 




JMP 


NZIO 


3508 


06160 


000000 


SIOO 


DAC 


• • 


3509 


06161 


140040 




CRA 




3510 


06162 


04 01475 




STA 


TID 


3511 


06163 


04 05770 


SI05 


STA 


V2T2 


3512 


06164 


10 01256 




JST 


CHOQ 


3513 


06165 


10 12437 




JST 


OKOO 



TWANSHIT HOLLERITH STRING 
GO TO V2E5 
IF LSTN s 0, 



ERROR, NO PATH 

NO REFERENCE TO FORMAT STATEMENT 

LIF a RPL 



« JMP 
OUTPUT ABS 
GO TO V2A 



NON-ZERO STRING TEST FAILED 
(A) = Q IS ERROR CONDITION 



ID s T2 » 

INPUT CHAR 
OUTPUT PACK 



3477 
3478 
3479 
3460 
3481 
3462 
3483 
3464 
3465 
3486 
3487 
3466 
3489 
3490 
3491 
3492 
3493 
3494 
3495 
3496 
3497 
3498 
3499 
3500 
3501 
3502 
3503 
3504 
3505 
3506 
3507 
3506 
3509 
3510 
3511 
3512 
3513 



HONEYWELL 



COMPUTER CONTROL DIVISION 



PROGRAM DOCUMENTATION 



♦ C210-001-6601 (FRTN) 



6C i>iU.160463D00 



KfcV. 



PAGfc 100 



3514 06166 02 00607 LDA 

3515 06167 07 00715 SUB 

3516 06170 11 00742 CAS 

3517 06171 01 06206 JMP 

3518 06172 101000 NOP 

3519 06173 100400 SPL 
5520 06174 G 01 06206 JMP 

3521 06175 04 U0607 STA 

3522 06176 02 01475 LDA 

3523 06177 0415 75 ALS 

3524 06200 06 01475 ADD 

3525 06201 06 01475 ADD 

3526 06202 06 00607 ADD 

3527 06203 04 01475 STA 

3528 06204 02 00717 LDA 

3529 06205 01 06163 JMP 

3530 06206 02 05770 SllO LDA 

3531 06207 -0 01 06160 JMP* 

3532 06210 10 03il6 V2M JST 

3533 06211 143322 BCI 

3534 004266 V2N EOU 

3535 06212 02 00717 V2P LDA 

3536 06213 04 01475 STA 

3537 06214 01 06124 JMP 

3538 06215 02 05767 V2Q LDA 

3539 06216 141206 AOA 

3540 06217 04 05767 STA 

3541 06220 07 00721 SUB 

3542 06221 100040 SZE 

3543 06222 01 06000 JMP 

3544 06223 01 06210 JMP 

3545 06224 000320 K46 OCT 

3546 06225 000330 K47 OCT 

3547 002544 K48 EOU 

3548 06226 000301 K49 OCT 

3549 06227 000314 K51 OCT 

3550 ' 



002543 



K52 EQU 



TC 

K60 

K124 

siio 



SUO 

TC 

TID 

3 

TID 

TID 

TC 

TID 

KlOl 

SI05 

V2T2 

SIOO 

EROO 

l.FR 

Al 

KlOl 

ID 

V2J 

T0V2 

T0V2 
K103 

V2A 
V2M 
320 
330 
K14 
301 

•Z-i A 

W X ~T 

Kll 



ASC-2 ZERO 



TID = 10»TID*TC 



T2 =1 

(A) 5 hRROR CONDITION OR NOT 

FORMAT STATEMENT ERROR 



ID » 1 
GO TO V2J 



OP 
OX 
OH 
OA 

n I 

ou 



3514 

3515 

3516 

3517 

3518 

3519 

3520 

3521 

3522 

3523 

3524 

3525 

3526 

3527 

3528 

3529 

3530 

3531 

3532 

3533 

3534 

3535 

3536 

3537 

3538 

3539 

3540 

3541 

3542 

3543 

3544 

3545 

3546 

3547 

3548 

^549 

3550 



HONEYWELL 



COMPUTER CONTROL DIVISION 



PROGRAM DOCUMENTATION 



» C210-001-6601 (F«TN) 



iC NO,ie0 4 6^0 0u 



HtV. U 



PAGfc lUl 



3551 
3552 
3553 
3554 
3555 
3556 
3557 
3558 
3559 
3560 
3561 
3562 
3563 
3564 
3565 
3566 
3567 
3568 
3569 
3570 
3571 
3572 
3573 
3574 
3575 
3576 
3577 
3578 
3579 
3580 
3581 
3582 
3583 
3584 
3585 
3586 
3587 



06230 



000307 
000712 



06231 
06232 
06233 
06234 
06235 
06236 
06237 
06240 
06241 
06242 
06243 
06244 
06245 
06246 
06247 
06250 
06251 
06252 
06253 
06254 
06255 
06256 
06257 
06260 
06261 
06262 
06263 
06264 



00 
00 
02 
04 
02 



04 
10 
10 
02 
07 
10104 
01 
10 
0400 
02 
10 
10 
14004 
04 
02 
04 
10 
14004 
10 
02 
07 
10104 
01 



00000 

00000 

06300 

06231 

06276 

00571 

02722 

02525 

00607 

00756 



06251 

02432 

40 

13735 

12467 

12363 



00640 

06231 

01475 

04241 



12467 

06231 

06277 



04264 



W7A 



K53 OCT 
K50 EOU 

* 
« 

* 

« 

T1W7 PZE 
T2W7 PZE 
W7 LDA 
STA 
LOA 
STA 
JST 
JST 
LDA 
SUB 
SNZ 
JMP 
JST 
LRL 
LDA 
JST 
JST 
CRA 
STA 
LDA 
STA 
JST 
CRA 
JST 
LDA 
SUB 
SNZ 
JMP 



307 
K43 



OG 
01 



W7C 



PAU 





K55 

TIW 

K74 

NAM 

NFO 

XNO 

TC 

CRE 



•STOP • 
•PAUSE* 

•«••••• 

SE AND STOP GENERATE CALLS Tq FSHT 



F*l 






W7C 

IVOO 

32 

K20Q 

OBOO 

CNOO 

DF 

T1W7 
ID 
AIOO 

OBOO 
T1W7 
K54 

C5 



NAMF » FSHT 

SET-UP REMAINING CHAR OF NAME 

EXAMINE NEXT CHAR 



TC » C/R * NOTING FOLLOWING 
INPUT INTEGER/VARIABLE 

OUTPUT LDA 
OUTPUT OA 
CALL NAME 

DF s 



ASSIGN INTEGER CONSTANT 

OUTPUT DAC 

OUTPUT OA OF ST/PA OR HT 



PA-^OT THE CASE 



3551 
3552 
3553 
3554 
3555 
3556 
3557 
3556 
3559 
3560 
3561 
3562 
3563 
3564 
3565 
3566 
3567 
3566 
3569 
3570 
3571 
3572 
3573 
3574 
35t5 
3576 
3577 
3578 
3579 
3580 
3581 
3582 
3583 
3584 
3585 
3586 
3587 



HONEYWELL 



COMPUTER CONTROL DIVISION 



PROGRAM DOCUMENTATION 



• C210-001-6601 (FRTN) 



3C NO,18046«500U 



KbV. D 



PAGt: 102 



3588 
3589 
3590 
3591 
3592 
3593 
3594 
3595 
3596 
3597 
3598 
3599 
3600 
3601 
3602 
3603 
3604 
3605 
3606 
3607 
3608 
3609 
3610 
3611 
3612 
3613 
3614 
3615 
3616 
3617 
3618 
3619 
3620 
3621 
3622 
3623 
3624 



06265 
06266 
06267 
06270 
06271 
06272 
06273 
06274 
06275 
06276 
06277 
06300 



06301 
06302 
06303 
06304 
06305 
06306 
06307 
06310 
06311 
06312 
06313 
06314 
06315 
06316 
06317 
06320 



02 00U60 
04 00630 
140040 
04 Q0040 
02 13733 
10 13773 
01 04262 
02 06277 W8 
01 06234 
144324 K74 
150301 K54 
151724 K55 



10 
02 
07 
10004 
10 
02 
07 
10004 
01 
02 
01 
14004 
00020 
02 
10 
01 



* 
02520 R8 
00655 
00717 


03465 
00607 
00702 

06314 

00717 G2B 

06325 



1 

13730 

12467 

04266 

• 



LDA 
STA 
CRA 
STA 
LDA 
JST 
JMP 
LDA 
JMP 
BCI 
BCI 
BCI 



JST 
LDA 
SUB 
SZE 
JST 
LDA 
SUB 

sze 

JMP 
LDA 
JMP 
CRA 
lAB 
LDA 
JST 
JMP 



RPL 
AF 

A 

K201 

OROO 

B6 

K54 

W7*l 

1,HT 

1#PA 

1»ST 



OUTPUT JMP • 

CAUSE LlSTi:\IG TO HAVE OCTAL ADDRESS 

OUTPUT RELATWE 



HT 
PA 
ST 



Rfi CALL 

GENERATES CALL UIRECTLY OR USES EXPRESSION TO 

ANALYZE AN ARGUMENT LIST. 
SYOO INPUT SYMBOL 

lU 
KlOl si (SUB) 

SKIP IF IU«SUBR, 
TGOO TAG SUB PROGRAM 

TC 
K17 »'250 ( ( ) 



• ♦3 

KlOl 

G2A 



SET Aal BEFORE EXPRESSION 



(B}sO 
0MI2 «JST INSTR, 

OBOO OUTPUT OA 

Al CR TEST 

•ASSIGNMENT STATEMENT* 



06321 02 00722 G^ LDA 



K104 



358b 
3589 
3590 
3591 
3592 
3593 
3594 
3595 
3596 
3597 
3598 
3599 
3600 
3601 
3602 
3603 
3604 
3605 
3606 
3607 
3606 
3609 
3610 
3611 
3612 
3613 
3614 
3615 
3616 
3617 
3618 
3619 
3620 
3621 
3622 
3623 
3624 
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3625 

3626 

3627 

3628 

3629 

3630 

3631 

3632 

3633 

3634 

3635 

3636 

3637 

3633 

3639 

3640 

3641 

3642 

3643 

3644 

3645 

3646 

3647 

3648 

3649 

3650 

3651 

3652 

3653 

3654 

3655 

3656 

3657 

3658 

3659 

3660 

3661 



06322 
06323 
06324 
06325 
06326 
06327 



06330 
06331 
06332 
06333 
06334 
06335 
06336 
06337 
06340 
06341 
06342 
06343 
06344 
06345 
06346 
06347 
06350 
06351 
06352 
06353 
06354 
06355 
06356 
06357 



10 05074 
10 02354 
02 00720 
140407 
10 07041 
01 04266 



G2A 



• 
02 00047 K9 
04 00040 
100040 
01 06336 
10 03116 
151324 
02 00046 
101040 
01 06356 
11 00717 
01 06344 
01 06351 
04 00630 
0400 40 
04 00040 
02 13733 
01 06362 
000201 R9B 
02 00060 
04 00046 
02 06364 
10 13147 
0400 40 R9C 
04 0U04U 



JST 
JST 
LDA 
TCA 
JST 
JMP 



LDA 
STA 
SZE 
JMP 
JST 
BCI 
LDA 
SN2 
JMP 
CAS 
JMP 
JMP 
STA 
LRL 
STA 
LDA 
JMP 
lAB 
LDA 
STA 
LDA 
JST 
LRL 
STA 



NPOO FIRST NON«SPEC CHECK 

1100 I'MPUT ITEM 

K102 SET A s 2 BEFORE EXPRESSION 

EXOO 
Al 



♦RETURN* 

OPTIMIZES EXIT CODING FOR FUNCTIONS TO MINIMIZE 
FETCHES OF THE FUNCTIOm VALUE, 



SBF 
A 

• ♦3 

EROO 
1,RT 
SFF 

R9C 
KlOl 

• ♦2 
R9B 

AF 
32 
A 
K201 

R9A 

RPL 

SFF 

K56 

OMOQ 

32 

A 



A 5 SBF, 

IF ZERO, GO To ERROR 



RETURN NOT ALLOWED IN MAIN PHUGRAM 
ELSE, IF SFF s 0, 

GO TO H9C 

IF SFF a 1, GO TO R98 



OUTPUT REL JMP TO 1ST RETN 

SET A = o TO OUTPUT OCTAL ADUH ON LISTIiSG 

SFF 8 HPL 

OUTPUT ITE^ (F,A) 

SET fUH OCTAL ADDRESS IN LISflNQ 



3625 

3626 

3627 

3628 

3629 

3630 

3631 

3632 

3633 

3634 

3635 

3636 

3637 

3638 

3639 

3640 

3641 

3642 

3643 

3644 

3645 

3646 

3647 

3648 

3649 

3650 

3651 

3652 

3653 

3654 

3655 

3656 

3657 

3658 

3659 

3660 

3661 
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KbV, ij 
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3662 
3663 
3664 
3665 
3666 
3667 
3668 
3669 
3670 
3671 
3672 
3673 
3674 
3675 
3676 
3677 
3678 
3679 
3680 
3681 
3682 
3683 
3684 
3685 
3686 
3687 
3688 
3689 
3690 
3691 
3692 
3693 
3694 
3695 
3696 



06360 
06361 
06362 
06363 
06364 



06365 
06366 
06367 
06370 
06371 
06372 
06373 
06374 
06375 
06376 
06377 
06400 
064U1 
06402 
06403 
06404 
06405 
06406 
06407 
06410 
06411 
06412 
06413 



04 00630 
02 13740 
10 13773 R9A 
01 04262 
000031 K56 
• 

« 

« 
« 



STA 
LDA 
JST 
JMP 
OCT 



3698 06415 



00 
00 
02 
10 
10 
10 
02 
04 
10 
02 
04 
02 
10 
10 
14004 
10 
02 
04 
12 
10 
02 
04 
02 
UU020 
10 



00000 Giro 

00000 GlTl 

00721 Gl 

05074 

02520 

04233 

00721 

00041 

10525 

00041 

06366 

00701 

02547 

02354 



07041 

06366 

00041 

00052 

02676 GIA 

10462 

00040 

10460 

1 

02672 



PZE 
PZE 
LDA 
JST 
JST 
JST 
LDA 
STA 
JST 
LDA 
STA 
LDA 
JST 
JST 
CRA 
JST 
LDA 
STA 
IRS 
JST 
LDA 
STA 
LDA 
lAB 
JST 



AF 

K206 

OROO 

B6 

31 



SL-I RELATIVE ADDRESS TORERO 

JUMP 1,0 

OUrPUr REL 

EXIT 

P COUE FOR 'F' (FETCH) 



•STATEMENT FUNCTION* 

OLD ASSIGN VALUES ARE SAVED IN SFTB AND ARE 

RESTORED AT COMPLETION, 



K103 
NPOO 
SYOO 
LOOO 
K103 
I 

GEOO 
I 

GlTl 
K16X 
TSOO 
IIOO 



EXOO 

GlTl 

I 

TCF 

STXI 

SFTB*2,1 

A 

SFTB*0,1 

STXA 



(A) = i 

FIRST .'JON-SPEC CHECK 
INPUT SYMBOL 
DEFINE LOCATION 



GENERATE SUBPROGRAM ENTRANCfc 



Tl 8 I 
»■' TEST 

INPUT ITEM 

EXPRESSION 

I = Tl 

TCF « TCF*1 



SET R TO A 



i662 
3663 
3664 
36 65 
3666 
3667 
3668 
3669 
3670 
3671 
3672 
3673 
3674 
3675 
3676 
3677 
3678 
3679 
3600 
3681 
3682 
3683 
3684 
3685 
3686 
3687 
3688 
3689 
3690 
3691 
3692 
3693 
3694 
3695 
3696 
3697 
359b 



HONEYWELL COMPUTER CONTROL DIVISION PROGRAM DOCUMENTATION 

• C210-001-66U1 (FRTN) <>C NO. 18046^000 Kfcv. D PAGr iQ^ 

3699 06416 000201 UB 

37U0 06417 1 04 15400 STA DP,1 "^^^^ 

3701 06420 10 02676 JST STXI SET R TO I tln^, 

3702 06421 1 02 10461 LDA SFTB^ia ^L°i 

3703 06422 000201 JAB "^^"^ 

3704 06423 10 02672 JST STXA SET H TO A Hit 

3705 06424 000201 lAB " 'u a 37O4 

3706 06425 1 04 15401 STA DP*1,1 ^!°^ 

3707 06426 02 00041 LDA I ,,^! 

3708 06427 07 00721 SUB K103 1.1-3 = Hnl 

3709 06430 04 00041 STA I ^ ^ u 37O8 

3710 06431 07 00721 SUB K103 ?^°' 

3711 06432 100040 SZE H^^ 

3712 06433 01 06410 JMP GlA NO, GO TO GlA ilH 

3713 06434 02 05073 LDA TlNp ^^^^ 

3714 06435 04 00040 STA A '^'^ 

3715 06436 0410 60 LLl 16 ^'^^^ 

3716 06437 02 13740 LDA OMJl "f^^^ 

3717 06440 10 12467 JST OBOO T^^t 

^7^0 IVAo S i? SJof ^^' ^^°° ^*« SUBPROGRAM tyU 

3719 06442 01 04266 JMP Al qq TO C/R TEST 3719 

J720 ♦ • W5 END \lll 

^^^2 • ♦END PROCESSOR* 37^2 

^7^^ • ^I«ST CHECK SUBPROGRAMS FOR CORRECT USAGE, THEN 3724 

37?^ * GENERATE HAP AND STRING BACK VARIABLES 3725 

liiS «..-, • *f^D CONSTANTS. ,75^ 

3727 06443 00 00000 T1W5 PZE ^^ 

llllltV4 llir'"" i'A ''' If BLOCK oAu. nil 

3730 06446 01 06525 JMP W5K GO TO w5K lilt 

3731 06447 02 00047 LDA SBF IF SBF NOT ZERO Hl^. 

3733 S.M? llVr'' ''' ' !nd?CATEs's BR UTINES 7' 2' 

3733 06451 100040 SZE OR FUNCTION, iltl 

3734 06452 01 06532 JMP W5M uo TO W5H llll 

3735 06453 140040 .58 CRA Hit 

3735 
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JC '^O.l804630U0 



KtV, Ij 



PAlit lUb 



3736 


06454 


04 00040 


STA 


A 


3737 


06455 


01 06500 


JMP 


W5H 


373a 


06456 


10 03656 W5D 


JST 


FAOO 


3739 


06457 


10 02672 


JST 


STXA 


3740 


06460 


02 00573 


IDA 


NT 


3741 


06461 


100040 


SZE 




3742 


06462 


01 06552 


JMP 


W50 


3743 


06463 


02 00655 


IDA 


lU 


3744 


06464 


07 00717 


SUB 


KlOl 


3745 


06465 


100040 


SZE 




3746 


06466 


01 06627 


JMP 


W5T 


3747 


06467 


02 00060 H3f 


LDA 


RPL 


3748 


06470 


04 06443 


STA 


T1W5 


3749 


06471 


02 00630 


LDA 


AF 


3750 


06472 


140500 


SSM 




3751 


06473 


04 00U60 


STA 


RPL 


3752 


06474 


140040 


CRA 




3753 


06475 


10 13773 


JST 


OROO 


3754 


06476 


02 06443 


LDA 


T1W5 


3755 


06477 


04 00060 


STA 


RPL 


3756 


06500 


02 00040 W5H 


LDA 


A 


3757 


06501 


06 00723 


ADD 


K105 


3758 


06502 


04 00040 


STA 


A 


3759 


06503 


07 00054 


SUB 


ABAR 


3760 


06904 


07 00723 


SUB 


K109 


3761 


06505 


100040 


SZE 




3762 


06506 


01 06456 


JMP 


W5D 


3763 


06507 


10 14523 W5J 


JST 


FSOO 


3764 


06510 


02 00047 


LDA 


SBF 


3765 


06511 


100040 


SZE 




3766 


06512 


02 00727 


LDA 


W5Z1 


3767 


06513 


05 00740 


ERA 


W5Z2 


3768 


06514 


04 14632 


STA 


OCI 


3769 


06515 


02 0UO47 


LDA 


SBF 


3770 


06516 


100040 


SZE 




3771 


06517 


02 00733 


LDA 


W5Z3 


3772 


06520 


04 14633 


STA 


OCI + 1 



A«j*a 

FETCH ASSIGNS 



IF NT 31 (CONSTANT) 
GO TO W50 

IF lUsl 

INDICATES VARIABLE, 

GO TO W5T 

SAVk RPL 

RPL«-AF (INHIBIT LISTING) 



OUTPUT REL 
RESTORE RPL 

A«A*5 



IF AaABAR, (DONE) 



ELSEi GO TO W5D 
FLUSH BUFFER 



3736 
3737 
373a 
3739 
3740 
3741 
3742 
3743 
3744 
3745 
3746 
3747 
3748 
3749 
3750 
3751 
3752 
3753 
3754 
3755 
3756 
3757 
3758 
3759 
3760 
3761 
3762 
3763 
3764 
3765 
3766 
3767 
3768 
3769 
3770 
3771 
3772 
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3773 


06521 


02 00724 


LDA 


K106 


3774 


06522 


04 00602 


STA 


OCNT 


3775 


06523 


10 14523 


JST 


FSOO 


3776 


06524 


01 01007 


JMP 


A051 


3777 


06525 


02 00060 ^5K 


LOA 


RPL 


3778 


06526 


101040 


SNZ 




3779 


U6527 


01 06507 


JMP 


W5J 


3780 


06530 


10 03116 


JST 


EROO 


3781 


06531 


141304 


3CI 


1,BD 


3782 


06532 


10 03656 W5M 


JST 


FAOO 


3783 


06533 


02 00046 


LDA 


SFF 


3784 


06534 


100040 


SZE 




3785 


06535 


01 06544 


JMP 


W5N 


3786 


06536 


10 02603 


JST 


NUOO 


3787 


06537 


10 02672 


JST 


STXA 


3788 


06540 


1 02 15400 


LDA 


DP,1 


3789 


06541 


140500 


SSM 




3790 


06542 


1 04 15400 


STA 


DP»1 


3791 


06543 


01 06453 


JMP 


W5B 


3792 


06544 


02 00655 W5N 


LDA 


lU 


3793 


06545 


07 00720 


SUB 


K102 


3794 


06546 


101040 


SNZ 




3795 


06547 


01 06453 


JMP 


W5B 


3796 


06550 


10 U3116 


JST 


EROO 


3797 


06551 


143304 


BCI 


l.FD 


3798 


06552 


02 00655 W50 


LDA 


lU 


3799 


06553 


07 00720 


SUB 


K102 


3800 


06554 


100040 


SZE 




3801 


06555 


01 06500 


JMP 


W5H 


3802 


06556 


02 00631 


LDA 


AT 


3803 


06557 


07 00721 


SUB 


K103 


3804 


06560 


100040 


SZE 




3805 


06561 


01 06500 


JMP 


W5H 


3806 


06562 


02 00633 W5P 


LDA 


DO 


3807 


06563 


07 00722 


SUB 


K104 


3806 


06564 


100040 


SZE 




3809 


06565 


01 066O5 


JMP 


W5Q 



GO TO INITIALIZE 
IF RPL NOT ZERO, 



ERROR-CODE GENERATED 

IN A BLOCK DATA SUBPROGRAM 

FETCH ASSIGNS 

IF FUNCTION, 

GO TO W5N 
NO USE TEST 

IF NU ERROR, 
NT{A)sl 

GO TO W5S 

lU MUST BE VAR/CON, 
ELSE, 

ERROR-FUNCTION 

NAME NOT DEFINED BY AN ARIfMM. STATEMENT 

IF IU«VAR/CON 



AND AT « STR/REL 
A "STRING" REQ'D. 



IF DU IS 4, THE 

CONSTANT IS COMPLEX, 

OTHfcRWISE 
GO TO W5Q 



3773 
3774 
3775 
3776 
3777 
3776 
3779 
3780 
3781 
3762 
3783 
3784 
3785 
3786 
3787 
378b 
3789 
3790 
3791 
3792 
3793 
3794 
3795 
3796 
3797 
3796 
3799 
3800 
36U1 
3802 
3803 
3604 
3605 
3806 
3807 
3806 
38U9 
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HfcV. D 



PAGE 10b 



3810 


06566 


02 


00630 


LDA 


AF 


3811 


06567 


10 


14135 


JST 


OSOO 


3812 


06570 


10 


02672 


JST 


STXA 


3813 


06571 


1 02 


15402 


LDA 


DP*2,1 


3814 


06572 


10 


06651 


JST 


W5X 


3815 


06573 


1 02 


15403 


LDA 


DP*3,1 


3816 


06574 


10 


06651 


JST 


H5X 


3817 


06575 


02 


00573 


LDA 


NT 


3818 


06576 


101040 


SNZ 




3819 


06577 


01 


06614 


JMP 


W5S 


3820 


06600 


02 


00040 


LDA 


A 


3821 


06601 


06 


00723 


ADD 


K105 


3822 


06602 


04 


00040 


STA 


A 


3823 


06603 


10 


02672 


JST 


STXA 


3824 


06604 


(J 01 


06614 


JMP 


W5S 


3825 


06605 


02 


00630 W5Q 


LDA 


AT 


3826 


06606 


10 


14135 


JST 


OSOO 


3827 


06607 


10 


02672 


JST 


STXA 


3828 


06610 


02 


00633 


LDA 


DO 


3829 


06611 


07 


00717 


SUB 


KlOl 


3830 


06612 


101040 


SNZ 




3831 


06613 


01 


06624 


JMP 


W5R 


3832 


06614 


1 02 


15402 W5S 


LDA 


DP*2,1 


3833 


06615 


10 


06651 


JST 


W5X 


3834 


06616 


1 02 


15403 


LDA 


DP*3,1 


3835 


06617 


10 


06651 


JST 


W5X 


3836 


06620 


02 


00633 


LDA 


DO 


3837 


06621 


07 


00721 


SUB 


K103 


3838 


06622 


100040 . 


SZE 




3839 


06623 


01 


06500 


JMP 


W5H 


3840 


06624 


1 02 


15404 W5R 


LDA 


DP+4,1 


3841 


06625 


10 


06651 


JST 


W5X 


3842 


06626 


01 


06500 


JMP 


W5H 


3843 


06627 


02 


U0631 W5T 


LDA 


AT 


3844 


06630 


11 


00721 


CAS 


K103 


3845 


06631 


01 


06467 


JMP 


W5F 


3846 


06632 


01 


06644 


JMP 


W5T5 



OUTPUT STRING 

OUTPUT 4 WORDS 
OF CONSTANT 



INCREMENT A 



OUTPUT STRING 

IF 00»1, 
INDICATES INTEGER, 

GO TO W5R 
OUTPUT TWO WORDS 
FLOATING POINT CONSTANT 



IF DOUBLE PRECISION, 

OUTPUT THE 3RD WORD 
GO TO W5H 

STRUNG VARlABLfc (lUsNON Q) 



3810 
3811 
3812 
3613 
3814 
3815 
3816 
3817 
3818 
3819 
3820 
3821 
3822 
3823 
3824 
3825 
3826 
3827 
3828 
3829 
3830 
3831 
3832 
3833 
3834 
3835 
3836 
3837 
3838 
3839 
3840 
3841 

y^ O 4^ fg, 

3843 
3844 
384') 
3846 
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3847 
3848 
3849 
3850 
3851 
3852 
3853 
3854 
3855 
3856 
3857 
3858 
3859 
3860 
3861 
3862 
3863 
3864 
3865 
3866 
3867 
3868 
3869 
3870 
3871 
3872 
3873 
3874 
3875 
3876 
3877 
3878 
3879 
3880 
3881 
3882 
3883 



06633 
06634 
06635 
06636 
06637 
06640 
06641 
06642 
06643 
06644 
06645 
06646 
06647 
06650 
06651 
06652 
06653 
06654 
06655 
06656 
06657 



06660 
06661 
06662 
06663 



11 
017400 
01 

01 

02 1 

03 
07 

100040 
01 
02 
100040 
01 
10 
152723 
0000 
0400 6 
04 
000201 
10 1 
10 
>0 01 
000727 
000740 
000733 



0720 

6637 
6467 
5404 
6634 
6634 

6467 
0655 W5T5 

6562 

3116 



00 



0640 

4127 
2672 

6651 



000000 
10 01256 
10 12437 
01 06660 



W5X 



W521 
W5Z2 
W5Z3 

« 

« 
POOO 



CAS 
OCT 
JMP 
JMP 
IDA 
ANA 
SUB 
SZE 
JMP 
LDA 
SZE 
JMP 

JST 

BCI 

DAC 

LRL 

STA 

lAB 

JST 

JST 

JMP» 

EOU 

EQU 

EOU 



DAC 
JST 
JST 
JMP» 



K102 

17400 

#♦2 

W5F 

DP*4,1 

• -4 
#-5 

W5F 

W5P 

EROO 

1,US 

• • 

16 

DF 

OAOO 

STXA 

W5X 

KlOO 

K122 

K116 



TtST FUR STG ABS ADDRESS 



NO 

TEST FOR PREFIX G 



STRUNG VARIABLE UU»NON 0) 



OUTPUT ABS 
REST "A" 
EXIT 
000377 

040000 
17741)0 



•INPUT CHAR/OUTPUT PACK* 



CHOO 
OKOO 
POOO 



INPUT CHAR 
OUTPUT PACK 
RfeTURiN 



3847 
3848 
3649 
3850 
3851 
3852 
3853 
3854 
3855 
3856 
3857 
3858 
385V 
3860 
3661 
4862 
3863 
3864 
386& 
3866 
3867 
3868 
3869 
3870 
3871 
3872 
5873 
3874 
3875 
3876 
3877 
3878 
3879 
3880 
3881 
3882 
3863 
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PAGE: llu 



3884 

3885 

3886 

3887 

3888 

3889 

3890 

3891 

3892 

3893 

3894 

3895 

3896 

3897 

3898 

3899 

3900 

3901 

3902 

3903 

3904 

39Q5 

3906 

3907 

3908 

3909 

3910 

3911 

3912 

3913 

3914 

3915 

3916 

3917 

3918 



06664 
06665 
06666 
06667 
06670 
06671 
06672 
06673 
06674 
06675 
06676 
06677 
06700 
06701 



06702 
06703 
06704 
06705 
06706 
06707 
06710 
06711 
06712 
06713 
06714 



000 
10 
11 
01 
01 
10 
02 
07 
04 
10004 
Q 01 
-0 01 
10 
14432 



000 

01066 

00756 

06671 

06700 

12437 

01475 

00717 

01475 

Q 

06665 

06664 

03116 

3 



3920 06716 



000 
02 
06 
04 
04 
06 
04 
10 
02 
04 
00020 
i 04 
10 



000 

00057 

00723 

00652 

00057 

00661 

00041 

02676 

00040 

15376 

1 

13*574 

024i2 



HSOO DAC 
HSIO JST 
CAS 
JMP 
JMP 
JST 
LDA 
SUB 
STA 
SZE 
JMP 
JMP# 
HS15 JST 
BCI 



DPOO 



OAC 
LOA 
ADO 
STA 
STA 
ADD 
STA 
JST 
LDA 
STA 
lAB 
STA 
JST 



• TRANS HOLLEHITH STRIivG* 

FORM HOLUERITH STRING, CHARACTER COUNT IN ID Q^^ 
ENTRY. C/R WILL ALSO TERMINATE STRINU, 

• « 

ICOO INPUT 1 CHARACTER 

CRET CHECK FOR CHAR s C/R 

• ♦2 

HS15 HOLLERITH STRING EXTENDS PAST END OF CARD 

OKOO OUTPUT PACK THE CHARACTER 

ID 

KlOl REDUCE CHARACTER COUNT BY 1 

ID 



HSIO 
NSOO 
EROO 
1»HS 



INPUT MORE CHARACTERS 

HOLLERITH STRING EXTENDS OVER STATEMENT 



•DO INPUTS 

SET UP DO TABLE ENTRIES. 
• ♦' 

D D 3 D*3 

K105 IFLG ■ NON-ZERO 

IFLG 

D 

DO I s OU*D 

I 

STXI 

A DP (1-4) s (8) 

DP-2»1 DP (1-2) « A 



DP-4,1 
IVDO 



INPUT INT VAR/CON 



3384 
3885 
3886 
i887 
3868 
3889 
3890 
3891 
3892 
3693 
3894 
3895 
3896 
3897 
3896 
3899 
3900 
3901 
3902 
3903 
3904 
3905 
3906 
3907 
3908 
3909 
3910 
3911 
3912 
3913 
3914 
3915 
3916 
3917 
3918 
3919 
3920 
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3921 
3922 
3923 
3924 
3925 
3926 
3927 
3928 
3929 
3930 
3931 
3932 
3933 
3934 
3935 
3936 
3937 
3938 
3939 
3940 
3941 
3942 
3943 
3944 
3945 
3946 
3947 
394a 
3949 
3950 
3951 
3952 
3953 
3954 
3955 
3956 
3957 



06717 
06720 
06721 
06722 
06723 
06724 
06725 
06726 
06727 
06730 
06731 
06732 
06733 
06734 
06735 
06736 
06737 
06740 
06741 
06742 
06743 
06744 
06745 
06746 



06747 
06750 
06751 
06752 
06753 
06754 
06755 
06756 
06757 



02 
10 



Q 10 
02 



04 
10 
10 
02 
04 
02 
07 
10004 
01 
10 
10 

02 

1 04 
14004 
04 

'0 01 
02 
04 
10 
01 



00752 

02547 

02676 

00040 

15400 

02432 

02676 

00040 

15377 

00607 

00752 



06743 

02432 

02676 DPIO 

00040 

15375 



00652 

06702 

00717 DP20 

01475 

04241 

06735 

• 



000000 

10 02676 

02 15400 

04 00040 

02 13735 

10 06764 

02 15376 

04 00040 

02 00060 



« 
DSOO 



LDA 

JST 

JST 

LDA 

STA 

JST 

JST 

LDA 

STA 

LDA 

SUB 

SZE 

JMP 

JST 

JST 

LDA 

STA 

CRA 

STA 

JMP» 

LDA 

STA 

JST 

JMP 



DAC 
JST 
LDA 
STA 
LDA 
JST 
LDA 
STA 
LDA 



K134 

TSOO 

STXI 

A 

DP.l 

IVOO 

STXI 

A 

DP-1,1 

TC 

K134 

DP20 

IVOO 

STXI 

A 

DP-3,1 

IFLG 

DPOO 

KlOl 

ID 

AIOO 

DPIO 



COMMA TEST 



DPCn 5 K^ITIAL VALUE POINTEK 
INPUT INT VAR/CON 



DP U-1) s A - FINAL VALUE POINTER 

a » 

IF THIRD TERM 

REAP AND ASSlG.o 

DP(I-3) a INCREMENT POINTER 

CLEAR IFLAG 
EXIT 

THIHU TERM s i 
ASSIGN CONSTANT 



♦DO INITIALIZE* 

GENERATE DO INITIALIZATION CODt , 
• • 

STXI ESTABLISH I 

DP,1 A a OP (I) 

A 

K200 

DS20 LQAU - LDA INITIAL VALUE 

DP-2,1 

A A s DP (1-2) 

RPL 



3921 
3922 
3V23 
3924 
3925 
3926 
3927 
3928 
3929 
3930 
3931 
3932 
3933 
3934 
3935 
3936 
3937 
39 38 
3939 
3940 
3941 
3942 
3943 
3944 
3945 
3946 
3947 
394a 
3949 
3950 
3951 
3952 
3953 
3954 
3955 
3956 
3957 
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• C210-0Q1-66Q1 (FRTN) 



3C N(J,18046iOQO 
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3958 
3959 
3960 
3961 
3962 
3963 
3964 
3965 
3966 
3967 
3968 
3969 
3970 
3971 
3972 
3973 
3974 
3975 
3976 
3977 
3978 
3979 
3980 
3981 
3982 
3983 
3984 
3985 
3986 
3987 
3988 
3989 
3990 
3991 
3992 



06760 
06761 
06762 
06763 

06764 
06765 
06766 
06767 
06770 
06771 



06773 
06774 
06775 
06776 
06777 
07000 
07001 
07002 
07003 
07004 
07005 
07006 
07007 
07010 
07011 
07012 
07013 



1 04 154U0 

02 13736 

10 06764 

•0 01 06747 



000000 
000201 
0410 60 
10 12467 
10 02676 
01 06764 



06772 00 00000 



000 
10 
02 
04 
02 
10 
02 
04 
02 
10 
02 
04 
02 
10 
14004 
04 
02 



000 

02676 

15376 

00040 

13735 

06764 

15375 

00040 

13732 

06764 

15377 

OOU40 

13760 

06764 



00040 

00060 



3994 07015 



04 00630 



STA 
LOA 
JST 
JMP» 

• 

0S20 DAC 
TAB 
LLL 
JST 
JST 
JMP» 

DS90 PZE 

* 

DUOO DAC 
JST 
LDA 
STA 
LDA 
JST 
LDA 
STA 
LDA 
JST 
LDA 
STA 
LDA 
JST 
CRA 
STA 
LDA 
ADD 
STA 



DP»1 
K202 
DS20 
DSOO 



• • 



16 

OBOO 
STXI 
DS20 



SfcT f^ETURN ADDRESS INTO DPd) 
STORb - STA VARIABLE NAME 
OUTPUT OA SUBROUTINE 



SfcT B = 
OUTPUT OA 
RESTOKfc 1 
RETURN 



•DO TERMINATION* 

GENERATE DO TERMINATION CODE, 

STXI 

DP-2,1 

A 

K200 

DS20 

DP-3,1 

A 

K203 

DS20 

DP-1,1 

A 

0MK9 

DS20 



OUTPUT LDA VARIABLE NAME 



OUTPUT ADD INCREMENT 



OUTPUT CAS FINAL VALUE 



A 

RPL 
Ki05 
AF 



395b 
3959 
396U 
3961 
3962 
3963 
3964 
3965 
3966 
3967 
3968 
3969 
3970 
3971 
3972 
3973 
3974 
3975 
3976 
3977 
397tt 
3979 
3980 
3981 
3962 
3983 
3984 
3985 
3986 
3987 
3988 
3989 
3990 
3991 
3992 
3993 
3994 
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399^) 07016 1 02 li>400 LDA DP,1 3y9t) 

3996 07017 04 06772 STA DS90 3996 

3997 07020 02 13733 LDA 0MI5 JUMP »+3 3997 

3998 07021 10 13773 JST OROO OUTPUT REL 3998 

3999 07022 02 06772 LDA DS90 3999 

4000 07023 04 00630 STA AF 4000 

4001 07024 02 13733 LDA 0MI5 JMP RPL (SAVED) - POINTS TO 'STA' INST. 4001 

4002 07025 10 13773 JST OROO OUTPUT REl 4002 

4003 07026 02 13733 LDA 0MI5 OUTPUT JHP RPl (SAVED) 4003 

4004 07027 10 13773 JST OROO OUTPUT REL 4004 

4005 07030 •O 01 06773 JMP» DQOO 4005 



4006 • #••••••*•*•« 



4006 



4007 » »EXPRESSION» 40q7 

4008 • •••••••••••• 4008 

4009 » THE RESULTANT OUTPUT IS A BUILT UP AOIN 4U09 

4010 » TA8LE THAT IS FURTHER PROCESSED BY SCAN, 4010 

4011 07031 00 00000 TOEX PZE 40il 

4012 007031 EXTO EQU TOEX 4012 

4013 07032 00 00000 TlEX PZE 4013 

4014 07033 00 00000 T2EX PZE 4014 

4015 07034 00 OOOOO T3EX PZE 40i5 

4016 07035 00 OOOOO T5EX PZE 4016 

4017 07036 00 OOOOO T6EX PZE 4017 

4018 07037 00 OOOOU EXT7 PZE 4018 

4019 07040 00 OOOOO T9EX PZE 4019 

4020 07041 000000 EXOO DAC •* 4020 

4021 07042 04 00664 STA F F « (A) 4021 

4022 07043 02 00040 LDA A SAVE POINTER TO FIRST VARIABLE 4Ukl2 

4023 07044 04 00066 STA TRFA FOR LATER POSSIBLE TRACIN3 4023 

4024 07045 02 00057 LDA D I » U*00*10 4024 

4025 07046 06 00661 ADD DO 4025 

4026 07047 06 00743 ADD K125 «8 4026 

4027 07050 04 00(J41 STA I 4027 

4028 07051 10 10016 JST EX99 DATA POOL CHECK 4028 

4029 07052 10 02676 JST STXI 4029 

4030 07053 140040 CRA 403C 

4031 07054 04 07031 STA EXTO TO « 4031 
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4032 


07055 


04 00642 


STA 


B 


4033 


07056 


04 07037 


STA 


EXT7 


4034 


07057 


06 07770 


ADD 


EX92*12 


4035 


07060 


0414 67 


LGU 


9 


4036 


07061 


1 04 15377 


STA 


DP-1,1 


4037 


07062 


140401 


CMA 




4038 


07063 


04 00652 


STA 


IFLG 


4039 


07064 


02 00113 


LDA 


LO 


4U40 


07065 


1 04 15376 


STA 


DP-2,1 


4041 


07066 


10 02676 tXlO 


JST 


STXI 


4042 


07067 


140040 


CRA 




4043 


07070 


04 07032 


STA 


TIEX 


4044 


07071 


1 04 15400 


STA 


DP,1 


4045 


07072 


1 04 15401 


STA 


DP*1,1 


4046 


07073 


02 00653 


LDA 


IM 


4047 


07074 


100040 


SZE 




4048 


07075 


01 07331 


JMP 


EX50 


4049 


07076 


02 00724 


LDA 


K106 


4050 


07077 


140407 


TCA 




4051 


07100 


04 00000 


STA 





4052 




» 






4053 


07101 


02 00607 £X11 


LDA 


TC 


4054 


07102 


1 07 07746 


SUB 


EX90*6,1 


4055 


07103 


101040 


SNZ 




4056 


07104 


01 07114 


JMP 


EXIl 


4057 


07105 


12 00000 


IRS 


XR 


4058 


07106 


01 07101 


JMP 


EXIl 


4059 


07107 


10 02676 


JST 


STXI 


4060 


07110 


02 00670 


LDA 


LIBF 


4061 


07111 


100040 


SZE 




4062 


07112 


01 07270 


JMP 


EX39 


4063 


07113 


01 10010 


JMP 


EX95 


4064 


07114 


1 02 07754 EXIl 


LDA 


EX9l*6,l 


4065 


07115 


04 00000 


STA 





4066 


07116 


1 01 00000 


JMP 


0,1 


4067 




• 




SPECIAL 


4066 




« 




LIBRA 



8 5 
T7 = 

0(1-2) a ♦«' 
(I) « 

IFUU NOT 

0(1-2) ■ LO 

Tl « 

AOIN(I) = T(l) » 

IF IM NOT ZERO, 

GO TO fcX5o 



PERFORM TABLE SEARCH 
GO TO ROUTI^JE ACCORDING 
TO TC. 
IF NO HATCH, ERROR 



SPECIAL LIBRARY FLAG 
ERROR CONDITION 



PROCESS LEADIi\G OPERATOR 
SPECIAL OPERaTOH FLAG SET WHEN COMPILING THE FUHTRAN 
LIBRARY IN ^'HICH CASfc THE OPERATIO'^S ( Aa ) AND 



4032 
4033 

« W w ^ 

4035 
4036 
4037 
4038 
4039 
4040 
4041 
4042 
4043 
4044 
4045 
4046 
4047 
4048 
4049 
4050 
4051 
4052 
4053 
4054 
4055 
4056 
4057 
4058 
4059 
4060 
4061 
4062 
4063 
4064 
4065 
4066 
4067 
4068 



HONEYWELL COMPUTER CONTROL DIVISION PROGRAM DOCUMENTATION 

♦ C210-001-6601 (Ff^Tl^) «5C NG,ld04630uO Kfcv. D PAGE lib 

sA ) ARE REQUlRtD, THIS LOGIC ►JILL ALLO*^ THESt 4069 

PROCESSED WITHOUT GIVING AN ERROR MESSAGE IF THE 4070 

SPECIAL LI8HARY FLAt, (LIBF) IS SET TO NON-ZtKO, 4071 

4072 

TC - ( 4073 

B » 8+16 4074 

SXF = N0Ni«2Eh?0 4075 

4076 
INPUT ITEM 4077 

4078 
GO TO bXlO 4079 

TC s • 4080 

4081 
01 (1-2) = *, 8*13 4082 

4083 

4064 

406b 

4086 

4087 

4086 

NO, CONSTR ERROR 4089 

• NOT PRECEDED BY ANQTHbR • 4090 

(E « •20) 4091 

4092 

4093 

a'777 4094 

4095 
CHA MGE • TO •» 4096 

4U97 
GO TO EX14 4098 

»2 4099 

SET TC TO • 4100 

=8 4101 

Tl = 8 4102 

4103 
4104 
4105 



4069 








• 




( 


4070 








• 




TO BE 


4071 








* 




SP 


4072 








• 






4073 


07117 


02 


00642 


EX12 


LDA 


B 


4074 


07120 


06 


00726 




ADO 


K109 


4075 


07121 


04 


00642 




STA 


B 


4076 


07122 


04 


00050 




STA 


SXF 


4077 


07123 


10 


02354 


EX14 


JST 


IIOO 


4078 


07124 


10 


02676 




JST 


STXI 


4079 


07125 


01 


07066 




JMP 


EXIO 


4080 


07126 


10 


02676 


EX16 


JST 


STXI 


4081 


07127 


02 


00607 




LDA 


TC 


4082 


07130 


0414 


67 




LGL 


9 


4083 


07131 


06 


00642 




ADO 


6 


4084 


07132 


06 


00747 




ADD 


K129 


4085 


07133 


1 09 


15377 




ERA 


DP-1,1 


4036 


07134 


140100 




SSP 




4087 


07135 


101040 




SNZ 




4088 


07136 


01 


07141 




JHP 


#♦3 


4089 


07137 


10 


03116 




JST 


EROO 


4090 


07140 


150327 




BCI 


1,PW 


4091 


07141 


02 


00726 




LDA 


K109 


4092 


07142 


0414 


67 




LGL 


9 


4093 


07143 


1 13 


15377 




IMA 


DP«1,1 


4094 


07144 


03 


00735 




ANA 


K118 


4095 


07145 


06 


00717 




ADD 


KlOl 


4096 


07146 


1 05 


15377 




ERA 


DP-1,1 


4097 


07147 


1 04 


15377 




STA 


DP-1,1 


4098 


07150 


01 


07123 




JMP 


EX14 


4099 


07151 


02 


00720 


EX18 


LDA 


K102 


4100 


07152 


04 


00607 




STA 


TC 


4101 


07153 


02 


00743 




LDA 


K125 


4102 


07154 


04 


07032 




STA 


TIEX 


4103 


07155 


10 


02676 




JST 


StXI 


4104 


07156 


1 02 


15377 




LDA 


DP-1,1 


4105 


07157 


03 


00735 




ANA 


K118 
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4106 07160 

4107 07161 

4108 07162 

4109 07163 

4110 07164 

4111 07165 

4112 07166 

4113 07167 

4114 07170 

4115 07171 

4116 07172 

4117 07173 

4118 07174 

4119 07175 

4120 07176 

4121 07177 

4122 07200 

4123 07201 

4124 07202 

4125 07203 

4126 07204 

4127 07205 

4128 07206 

4129 07207 

4130 07210 

4131 07211 

4132 07212 

4133 07213 

4134 07214 

4135 07215 

4136 07216 

4137 07217 

4138 07220 

4139 07221 

4140 07222 

4141 07223 

4142 07224 



07 00642 
07 07032 
100400 
01 07166 



SUB 
SUB 
SPL 
JHP 



10 03116 EX19 JST 

147324 BCI 

02 07031 EX20 IDA 

100040 SZE 

01 07230 JHP 

02 00642 EX22 LOA 

06 00664 ADD 

100400 SPL 

01 10012 JHP 

10 02676 EX24 JST 

02 00607 LDA 

0414 67 UGL 

06 07032 ADO 

06 00642 ADD 

1 04 15401 STA 
10 10016 JST 
01 07123 JMP 

10 02676 EX26 JST 

1 02 15377 LDA 
03 00735 ANA 
11 00642 CAS 
01 10014 JMP 
101000 NOP 
02 00750 EX30 LDA 



04 00000 



STA 



1 02 07772 EX31 LDA 



07 00607 
100040 

01 07226 

1 02 10010 
04 07225 
10 02676 

-0 01 07225 



SUB 
SZB 

JMP 
LDA 
STA 
JST 



B 
TIEX 

#♦3 
EROO 
1,NT 
TOEX 

EX34 
B 

r 

EX96 

STXI 

TC 

9 

TIEX 

B 

DP*1,1 

EX99 

EX14 

STXI 

DP»1,1 

K118 

6 

EX97 

K131 



EX92*14a 

TC 

EX32 

EX93*14,1 
#♦3 
STXI 



8 ,GT, I (1-2) -B 



NOi ERROR 

LOGICAL .MOT, NOT A UNARY OPERATOR 

YES 

T (0) a 

YES, 

B ♦ ♦ (5) .GT. 

NO, ERROR 



OKI) « TC . T1*B 
DATA POOL CHECK 



IF I (1-2) ,LT. B 

ERROR — — -MULTIPLE ♦OR - SliiNS 

SET INOEX TO 

SEARCH OPERATOR TABLE FOR TRAILING 
OPERATOR AFTER HAVING ENCOUNTERED AN 
ITEH OR A NEGATE, 



JMP« •♦I 



4106 
4107 
4108 
4109 
4110 
4111 
4112 
4113 
4114 
4115 
4116 

4118 
4119 
4120 
4121 
4122 
4123 
4124 
4125 
4126 
4127 
4128 
4129 
4130 
4131 
4132 
4133 
4134 
4135 
4136 
4137 
4136 
4139 
4140 
4141 
4142 
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4143 07225 

4144 07226 

4145 07227 

4146 07230 

4147 07231 

4148 07232 

4149 07233 

4150 07234 

4151 07235 

4152 07236 

4153 07237 

4154 07240 

4155 07241 

4156 07242 

4157 07243 

4158 07244 

4159 07245 

4160 07246 

4161 07247 

4162 07250 

4163 07251 

4164 07252 

4165 07253 

4166 07254 

4167 07255 

4168 07296 

4169 07257 

4170 07260 

4171 07261 

4172 07262 

4173 07263 

4174 07264 

4175 07265 

4176 07266 

4177 07267 

4178 0727Q 

4179 07271 



000000 DAC 
12 00000 EX32 IRS 

01 07215 JMP 

02 00642 EX34 LOA 
SUB 
SZE 
JMP 
LDA 
SZE 
JMP 

EX35 CRA 
STA 
LDA 
ADA 
SHI 
JMP 
JMP* 











07 07037 

100040 

01 07274 

02 07031 

100040 

01 07251 

140040 

04 00652 

02 00664 

141206 

101400 

01 07246 

•0 01 07041 
10 10040 EX36 JST 
10 12700 JST 

-0 01 07041 JMP» 
10 02676 EX36 JST 
02 Q0642 LDA 
07 00726 SUB 
04 00642 STA 
02 00721 LDA 
04 00045 STA 
02 07031 LDA 
0414 67 LGL 
06 00642 ADD 

06 00742 ADD 

1 04 15401 STA 
10 10016 JST 
140040 CRA 
04 07031 STA 
04 07037 STA 
02 00113 EX39 LDA 
04 00040 STA 



• • 

XR 

EX31 
B 
EXT7 

EX40 
TOEX 

EX38 

IfLG 



EX36 

EXOO 

CAOO 

OTOO 

EXOO 

STXI 

6 

K109 

B 

K103 

M^L 

TOEX 

9 

B 

K124 

DP*1,1 

EX99 

TOEX 
EXT7 
LO 

A 



COnIRQL OPERATOR LOOP 

CONTINUE 

IF B = 



NO, GO TO EX40 
IF T (0) « 

NO, GO TO EX38 

IFLG s 



F , U£, -1 

YES 

RETURN - NO 

SCAN 

OUTPUT TRIADS 

RETURN 



(I) « T (0) 

1 (I) « B«9 
I s 1*2 

DATA POOL CHECK 

TO a U 
T7 = 

A s LO 



4143 
4144 
4145 
4146 
4147 

4148 
4149 

4i50 
4151 
4152 
4153 
4154 
4155 
4156 
4157 
4158 
4159 
4160 
4161 
4162 
4163 
4164 
4165 
4166 
4167 
4168 
4169 
4170 
4171 
4172 
4173 
4174 
4175 
4176 
4177 
4i7« 
4179 
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3C NO. 180463000 



HtV. D 



PAGt 118 



4180 


07272 





04 


00653 




STA 


4181 


07273 





01 


07066 




JMP 


4182 


07274 





02 


00607 


EX40 


LDA 


4163 


07275 





11 


00672 




CAS 


4184 


07276 





01 


07300 




JMP 


4185 


07277 





01 


07303 




JMP 


4186 


07300 





07 


00752 




SUB 


4187 


07301 


100040 




SZE 


4188 


07302 





01 


07316 




JMP 


4189 


07303 





02 


00041 


EX41 


LDA 


4190 


07304 





07 


00720 


EX42 


SUB 


4191 


07305 





04 


OQOOO 




STA 


4192 


07306 


1 


02 


15401 




LDA 


4193 


07307 





03 


00735 




ANA 


4194 


07310 





11 


00642 




CAS 


4195 


07311 





01 


07314 




JMP 


4196 


07312 





01 


07175 




JMP 


4197 


07313 


-0 


01 


07041 




JMP* 


4198 


07314 





02 


00000 




LDA 


4199 


07315 





01 


07304 




JMP 


4200 


07316 





10 


02555 


B%44 


JST 


4201 


07317 





01 


07213 




JMP 


4202 


07320 


-0 


02 


00040 


EX46 


LDA* 


4203 


07321 





04 


07036 




STA 


4204 


07322 


• 


02 


07036 




LDA* 


4205 


07323 





11 


00113 




CAS 


4206 


07324 





01 


07326 




JMP 


4207 


07325 





01 


07230 




JMP 


4208 


07326 





04 


00577 




STA 


4209 


07327 





10 


10436 


EX48 


JST 


4210 


07330 





01 


07230 




JMP 


4211 


07331 





10 


02676 


EX50 


JST 


4212 


07332 





02 


00040 




LDA 


4213 


07333 


1 


04 


15400 




STA 


4214 


07334 





02 


00655 




LDA 


4215 


07335 


101100 




SLN 


4216 


07336 





01 


07213 




JMP 



IM 

EXIO 
TC 
K5 

• ♦2 
EX41 
K134 

EX44 

I 

K102 

XR 

DP*1,1 

K118 

B 

• ♦3 
EX24 
EXOO 
XR 

EX42 
IPOO 
EX30 
A 

T6EX 
T6EX 
LO 

• ♦2 
EX34 
02 

ETOO 
EX34 
STXI 
A 

DP,1 
lU 

EX3Q 



IM iMOT EQ 

TC t 

«'254 (,) IN BCD MODE 



»17 

NO, GO TO EX44 



9 VS, I (JJ 



EQUAL, GO TO EX24 
LESS, RETURN 
GREATER, REPEAT LOOP 

) - INPUT OPERATOR 
GO TO bX30 

IF OKOKA)) » L(0) 



GO TU feX34 
02 « LO 
ENTER TRIAD 



A( I) s A 

lU = SUB OR ARR 
NO, GU TO 8X3o 



4180 
4181 
4182 
4183 
4164 
4185 
4166 
4187 
4168 
4189 
4190 
4191 
4192 
4193 
4194 
4195 
4196 
4197 
4196 
4199 
4200 
4201 
4202 
4203 
4204 
4205 
4206 
4207 
4208 
4209 
4210 
4211 
4212 
4213 
4^14 
4215 
4216 



HONEYWELL 
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♦ C210-001-6601 (FRTN) 



3C NO. 180463000 



RfcV, D 



PAGfe 119 



4217 


07337 


02 00607 


LOA 


TC 


4218 


07340 


07 00702 


SUB 


K17 


4219 


07341 


100040 


SZE 




4220 


07342 


01 07666 


JMP 


EX76 


4221 


07343 


Q 02 00642 


IDA 


B 


4222 


07344 


06 00726 


ADD 


K109 


4223 


07345 


04 00642 


STA 


B 


4224 


07346 


02 00655 


LDA 


lU 


4225 


07347 


07 00721 


SUB 


K103 


4226 


07350 


100040 


SZE 




4227 


07351 


01 07663 


JMP 


EX75 


4228 


07352 


140040 


CRA 




4229 


07353 


1 04 15400 


STA 


DP,1 


4230 


07354 


04 00616 


STA 


X4 


4231 


07355 


04 07034 


STA 


T3EX 


4232 


07356 


04 10032 


STA 


K 


4233 


07357 


02 00633 


LDA 


DO 


4234 


07360 


04 07040 


STA 


T9EX 


4235 


07361 


02 00040 


LDA 


A 


4236 


07362 


04 07035 


STA 


T5EX 


4237 


07363 


02 00631 


LDA 


AT 


4238 


07364 


07 00723 


SUB 


K105 


4239 


07365 


10004Q 


SZ6 




4240 


07366 


01 07660 


JMP 


8X74 


4241 


07367 


140040 


CRA 




4242 


07370 


04 07033 


STA 


T2EX 


4243 


07371 


10 10016 


JST 


EX99 


4244 


07372 


10 02676 


JST 


STXI 


4245 


07373 


02 00040 


LDA 


A 


4246 


07374 


1 04 15400 


STA 


DP,1 


4247 


07375 


02 00751 


LDA 


K132 


4248 


07376 


0414 67 


L6L 


9 


4249 


07377 


06 00742 


ADD 


K124 


4250 


07400 


1 04 15401 


STA 


DP*1,1 


4251 


07401 


02 00633 EX54 


LDA 


DO 


4252 


07402 


07 00717 


SUB 


KlOl 


4253 


07403 


101040 


SN2 





TC 



{ 



NO, GO TO EX76 
YESf B s 8^16 



lU > ARR 

NO, GO TO EX75 

A(I) a 

X4 s 

T3 » 
T5 « A 

T9 « DO 

T5 « A 

AT « DUM 

NO, GO TO EX74 

YES, T (0) » 
DATA POOL CHECK 



A(I) « A 

01 (I) « A, 11 



1=9 

IF UO « 1, GO TO EX56 



4217 
4216 
4219 
4220 
4221 
4222 
4223 
4224 
4225 
4226 
4227 
4228 
4229 
4230 
4231 
4232 
4233 
4234 
4235 
4236 
4237 
4238 
4239 
4240 
4241 
4242 
4243 
4244 
4245 
4246 
4247 
4248 
4249 
4250 
4251 
4252 
4253 



HONEYWELL 



rnuoMTCD 

Willi u i ki\ 



PROGRAM DOCUMENTATION 



» C210-001-6601 (FRTN) 



3C NO,180463UOO 



HfcV, D 



PAGE 120 



4254 


07404 





01 


07427 


JMP 


EX56 


4255 


07405 





10 


10016 


JST 


EX99 


4256 


07406 





01 


07410 


JMP 


• ♦2 


4257 


07407 





12 


10032 EX55 


IRS 


K 


4258 


07410 





02 


10032 


LDA 


K 


4259 


07411 





04 


00000 


STA 


XR 


4260 


07412 


1 


02 


00612 


LOA 


X.l 


4261 


07413 





04 


07036 


STA 


T6EX 


4262 


07414 





10 


02676 


JST 


STXI 


4263 


07415 





02 


07036 


LOA 


T6EX 


4264 


07416 


1 


04 


19400 


STA 


DP,1 


4265 


07417 





02 


00721 


LDA 


K103 


4266 


07420 


0414 


67 


LGL 


9 


4267 


07421 





06 


07034 


ADO 


T3EX 


4268 


07422 





06 


00747 


ADD 


K129 


4269 


07423 


1 


04 


15401 


STA 


DP*1,1 


4270 


07424 





03 


00735 


ANA 


K118 


4271 


07425 





06 


00721 


ADD 


K103 


4272 


07426 





04 


07034 


STA 


T3EX 


4273 


07427 





10 


02432 EX56 


JST 


IVOO 


4274 


07430 





10 


10016 


JST 


EX99 


4275 


07431 





10 


02676 


JST 


STXI 


4276 


07432 





02 


00040 


LDA 


A 


4277 


07433 


X 


04 


15400 


STA 


DP.l 


4278 


07434 





02 


00573 


LDA 


NT 


4279 


07435 


100040 


SZ6 




4280 


07436 





01 


07614 


JMP 


EX6d 


4281 


07437 





10 


01251 


JST 


UCOO 


4282 


07440 





10 


01521 


JST 


DNOO 


4283 


07441 


101040 


SNZ 




4284 


07442 





01 


07450 


JMP 


EX57 


4285 


07443 





07 


00717 


SUB 


KlOl 


4286 


07444 


101040 


SNZ 




4287 


07445 





01 


07450 


JMP 


EX57 


4288 


07446 





10 


03116 


JST 


EROO 


A '^ a n 




^ p 


• ^ ••« ^« 


. ■? 


_ 




fC OT 


7447 


i:?ir£y 


«CI 


ifSu 


4290 


07450 





10 


02676 EX57 


JST 


STXI 



DATA POOL CHECK 
K s K*l 

T6 a X (K) 



0(1) > « 
I (I) « T3*13 
T3 » T3*16 
A (A) r T6 
■ 13 



T3 » A(A) 

INPUT INTEGER VARIABLE 

DATA POOL CHECK 

A(I) s A 



CONSTANT ENCOUNTERED 
UNINPUT COLUMN 
INPUT DO NOT ASSIGN 

IH ■ u 



IH s INTEGEH 

SUBSCRIPT li^CREMENTER NOT A CONSTANT 



4254 
4255 
4256 
4257 
4298 
4299 
4260 
4261 
4262 
4263 
4264 
4265 
4266 
4267 
4268 
4269 
4270 
4271 
4272 
4273 
4274 
4275 
4276 
4277 
4278 
4279 
4280 
4281 
4282 
4283 
4284 
4285 
4286 
4287 
4288 
4289 
4290 



HONEYWELL 
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* C210-001-6601 (FRTN) 



60 MU.1B0463QUO 



REV. D 



PAGfc 121 



4291 


07451 


02 00717 


LDA 


KlOl 


4292 


07452 


0414 67 


LGL 


9 


4293 


07453 


06 07034 


ADD 


T3EX 


4294 


07454 


06 00745 


ADD 


K127 


4295 


07455 


1 04 15401 


STA 


DP*1,1 


4296 


07456 


10 10016 


JST 


EX99 


4297 


07457 


02 07040 


EX58 LDA 


T9EX 


4298 


07460 


04 00633 


STA 


DO 


4299 


07461 


02 01475 


LDA 


ID 


4300 


07462 


07 00717 


SUB 


KlOl 


4301 


07463 


04 01475 


STA 


ID 


4302 


07464 


101040 


SNZ 




4303 


07465 


01 07500 


JMP 


EX60 


4304 


07466 


02 10032 


LDA 


K 


4305 


07467 


04 00000 


STA 





4306 


07470 


1 02 00633 


IDA 


D0,1 


4307 


07471 


101040 


SNZ 




4308 


07472 


01 07601 


JMP 


EX67 


4309 


07473 


000201 


ue 




4310 


07474 


02 01475 


LDA 


ID 


4311 


07475 


10 02703 


JST 


IMOO 


4312 


07476 


06 07033 


ADD 


T2EX 


4313 


07477 


04 07033 


STA 


T2EX 


4314 


07500 


02 07040 


EX60 LDA 


T9EX 


4315 


07501 


04 00633 


STA 


DO 


4316 


07502 


02 10032 


LDA 


K 


4317 


07503 


04 00000 


STA 





4318 


07504 


1 02 00614 


LDA 


X*2.1 


4319 


07505 


101040 


SNZ 




4320 


07506 


01 07517 


JMP 


EX62 


4321 


07507 


02 00752 


LDA 


K134 


4322 


07510 


10 02547 


JST 


TSOU 


4323 


07511 


1 02 00634 


LDA 


Db*l,l 


4324 


07512 


000201 


lAB 




4325 


07513 


1 02 00633 


LDA 


D0,1 


4326 


07514 


10 02703 


JST 


IMOO 


4327 


07515 


1 04 00634 


STA 


D0*1,1 



OCI) = *, HI) » T3*ll 
DATA POOL CHECK 

RESET ti{0) 
SUBSCRIPT SIZE 
"ID » ID-1 

IF ZERO, GO TO EX60 



D(K) X 

YES - (DUMMY DIMENSION) 

T2 = T2*IU»D(K) 
RESET 0(0) 

X(K*2) « 

YES - FINISHED 

• 17 

COMMA TEST 



D(K*1) 5 D(K*1)»U(K) 



4291 
4292 
4293 
4294 
4295 
4296 
4297 
4296 
4299 
4300 
4301 
4302 
4303 
4304 
4305 
4306 
4307 
4308 
4309 

4310 
4311 
4312 
4313 
4314 
4315 
4316 
4317 
4318 
4319 
4320 
4321 
4322 
4323 
4324 
4325 
4326 
4327 



HONJijYWiiiLL 
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3C N0.1dQ4630aO 



HkV. D 



PAGfc 122 



4328 


07516 


01 074U7 


JMP 


EX55 




4329 


07517 


10 02676 EX62 


JST 


STXI 




4330 


07520 


1 02 15377 


LDA 


DP-1, 


1 


4331 


07521 


140100 


SSP 






4332 


07522 


0404 67 


LGR 


9 




4333 


07523 


11 00721 


CAS 


K103 




4334 


07524 


01 07526 


JMP 


• ♦2 




4335 


07525 


01 07575 


JMP 


EX66 




4336 


07526 


101040 


SNZ 






4337 


07527 


01 07562 


JMP 


EX64 




4338 


07530 


11 00751 


CAS 


K132 




4339 


07531 


01 07S37 


JMP 


EX63 




4340 


07532 


01 07534 


JMP 


#♦2 




4341 


07533 


01 07537 


JMP 


EX63 




4342 


07534 


02 07033 


LDA 


T2EX 




4343 


07535 


101040 


SNZ 






4344 


07536 


01 07567 


JMP 


EX65 




4345 


07537 


02 00717 EX63 


LDA 


KlOl 




4346 


07540 


1 04 15377 


STA 


DP-1, 


1 


4347 


07541 


02 07033 


UDA 


T2EX 




4348 


07542 


1 04 15400 


STA 


DP,1 




4349 


07543 


02 00753 


IDA 


K137 




4350 


07544 


1 04 15401 


STA 


DP*1, 


1 


4351 


07545 


140040 


CRA 






4352 


07546 


1 04 15403 


STA 


DP*3, 


1 


4353 


07547 


02 07035 


LDA 


T5EX 




4354 


07550 


1 04 15402 


STA 


DP*2, 


1 


4355 


07551 


10 10016 


JST 


EX99 




4356 


07552 


10 10040 


JST 


CAOO 




4357 


07553 


02 00576 


LDA 


01 




4358 


07554 


04 00040 


STA 


A 




4359 


07555 


10 02672 


JST 


STXA 




4360 


07556 


1 02 15402 


LDA 


DP*2, 


1 


4361 


07557 


140500 


SSM 






4362 


07560 


1 04 1?4U2 


STA 


DP*2, 


1 


4363 


07561 


01 07316 


JMP 


EX44 




4364 


07562 


02 00113 EX64 


LDA 


LO 





DOES 0( 1-2) « • 



YES. 

NO. 

0(1-2) « - YES 

DOES 0(I»2> > A 

YES 

IS T2 » 

YES (DUMMY ARRAY (1,1»1) ) 

01(1-2) • 1 
A(I) » T2 

0«»X» ('24)1 I«2 

0ni^2) • 

A(I*2) ■ T5 
DATA POOL CHECK 
SCAN 

A s 01 

S(A) 5 NON-ZERO 

S(A) = 1 



4328 
4329 
4330 
4331 
4332 
4333 
4334 
4335 
4336 
4337 
4338 
4339 
4340 
4341 
4342 
4343 
4344 
4345 
4346 
4347 
4348 
4349 
4350 
4351 
4352 
4353 
4354 
4355 
4356 
4357 
4356 
4359 
4360 
4361 
4362 
4365 
4364 



HONEYWELL 
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PROGRAM DOCUMENTATION 













« C210-001 


•6601 ( 


436i> 


07563 


1 


04 


15400 




STA 


DP»1 


4366 


07564 





10 


10016 




JST 


EX99 


4367 


07565 





10 


02676 




JST 


STXI 


4368 


07566 





01 


07537 




JMP 


EX63 


4369 


07567 





02 


00041 


EX65 


LDA 


I 


4370 


07570 





07 


00722 




SUB 


K104 


4371 


07571 





04 


00041 




STA 


I 


4372 


07572 





02 


07035 




LDA 


T5EX 


4373 


07573 


1 


04 


13374 




STA 


DP-4,1 


4374 


07574 





01 


07316 




JMP 


EX44 


4375 


07575 





02 


00041 


EX66 


LOA 


I 


4376 


07576 





07 


00720 




SUB 


K102 


4377 


07577 





04 


00041 




STA 


r 


4378 


07600 





01 


07517 




JMP 


EX62 


4379 


07601 





10 


04241 


bX67 


JST 


AIOO 


4380 


07602 





10 


02676 




JST 


STXI 


4381 


07603 





02 


00040 




LDA 


A 


4382 


07604 


1 


04 


15400 




STA 


DP,1 


4383 


07605 





02 


00717 




LDA 


KlOl 


4384 


07606 


0414 


67 




LGL 


9 


4385 


07607 





06 


07034 




ADD 


T3EX 


4386 


07610 





06 


00745 




ADD 


K127 


4387 


07611 


1 


04 


15401 




STA 


DP*1,1 


4368 


07612 





10 


10016 




JST 


EX99 


4389 


07613 





01 


07500 




JMP 


EX60 


4390 


07614 





02 


00607 


ex68 


LOA 


TC 


4391 


07615 





11 


00721 




CAS 


K103 


4392 


07616 





01 


07620 




JMP 


• ♦2 


4393 


07617 





01 


07621 




JMP 


• ♦2 


4394 


07620 





01 


07457 




JMP 


EX58 


4395 


07621 


0414 


67 




LGL 


9 


4396 


07622 





06 


07034 




ADD 


T3EX 


4397 


07623 





06 


00747 




ADD 


Ki29 


4398 


07624 


1 


04 


15401 




STA 


DP*1,1 


4399 


07625 





10 


02437 




JST 


IROO 


4400 


07626 





01 


07430 




JMP 


EX56*1 


4401 


07627 


140040 


EX69 


CRA 





(FRTN) 



3C 'NiO, 180463000 RtV, D 



Ad) 3 LO 

DATA POOL CHECK 



PAGfc 123 



I « 1-4 
A (P s T5 



I « 1-2 

ASSIGN INT CONSTANT 

SET XR TO I 

Ad) « A 



OKI) » ♦, T3*ll 
DATA POOL CHECK 

IS TC 

s « 



NO 



■13 

OKI) « », T3*13 

INPUT INTEGER VAR/CON 

SET LISTING FOR OCTAL AUDK 



4365 

4366 

4367 

4368 

4369 

4370 

4371 

4372 

43^3 

4374 

4375 

4376 

4377 

4378 

4379 

4380 

4381 

4362 

4363 

4384 

4385 

4386 

4387 

4366 

4389 

4390 

4391 

4392 

4393 

4394 

4395 

4396 

4397 

4398 

4399 

440C 

4401 



K O N E Y W E 



^^■■MII4*rn> ^^Al-PMAI M.ltll|*l^ftl 

LumruiCK cuNiRuL uiVtSiON 
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• C210-001-6601 (FRTN) 



iC NO, 18046^000 



HfcV. D 



PAGt lkJ4 



4402 


07630 





04 


00040 


STA 


A 


4403 


07631 





02 


13733 


LDA 


0MI5 


4404 


07632 





04 


00640 


STA 


DF 


4405 


07633 





10 


14127 


JST 


OAOO 


4406 


07634 





02 


00060 


IDA 


RPL 


4407 


07635 





04 


00577 


STA 


02 


4408 


07636 





02 


00754 


LDA 


K138 


4409 


07637 





04 


00600 


STA 


P 


4410 


07640 





10 


10436 


JST 


ETOO 


4411 


07641 





10 


06664 


JST 


HSOO 


4412 


07642 





02 


00756 


LOA 


CRET 


4413 


07643 





10 


12437 


JST 


OKdO 


4414 


07644 


140040 


CRA 




4415 


07645 





04 


00000 


STA 





4416 


07646 





04 


00040 


STA 


A 


4417 


07647 





02 


00577 


LDA 


02 


4418 


07650 





07 


00717 


SU8 


KlOl 


4419 


07651 





10 


14135 


JST 


OSOO 


4420 


07652 





10 


01256 


JST 


CHOO 


4421 


07653 





10 


01412 


JST 


FNOO 


4422 


07654 





10 


02676 


JST 


STXI 


4423 


07655 





02 


00044 


LDA 


L 


4424 


07656 


1 


04 


15400 


STA 


DP,1 


4425 


07657 





01 


07666 


JMP 


EX76 


4426 


07660 


Q 


02 


00630 EX74 


LDA 


AF 


4427 


07661 





04 


07033 


STA 


T2EX 


4428 


07662 





01 


07401 


JMP 


EX54 


4429 


07663 





02 


00752 EX75 


LDA 


K134 


4430 


07664 





04 


00607 


STA 


TC 


4431 


07665 





01 


07175 


JMP 


EX24 


4432 


07666 


1 


02 


15377 EX76 


LDA 


DP-1,1 


4433 


07667 


0404 


67 


LGR 


9 


4434 


07670 





03 


10027 


ANA 


K133 


4435 


07671 





07 


00752 


SUB 


K134 


4436 


07672 


101040 


SNZ 




4437 


07673 





01 


07230 


JMP 


EX34 


4433 


07674 





10 


03116 


JST 


EROO 



JMP M INSTRUCTION 

SET LISTING FOR SYMBOLIC A INSTR 

OUTPUT ABSOLUTE 



P s H 

ENTER TRIAD 

TRANSFER HOLLERITH STRINU 

(A) « C/R 

OUTPUT PACK 

SET LISTING FOR OCTAL ADDR. 
SET LISTING FOR OCTAL ADDR. 



OUTPUT STRING RPL-1 
INPUT CHARACTER 

RESET INDEX To I 

Ad) « L 



T2 » AF 
GO TO EX54 

TC s , 

GO TO EX24 



WITHIN AN ARGUMENT LIST 



4402 
4403 
4404 
4405 
4406 
4407 
4408 
4409 
4410 
4411 
4412 
4413 
4414 
4415 
4416 
4417 
4418 
4419 
4420 
4421 
4422 
4423 
4424 
4425 
4426 
4427 
4428 
4429 
4430 
4431 
4432 
4433 
4434 
4435 
4436 
4437 
4438 
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4439 


07675 


140707 




BCI 


1>AG 


SUBROUTINE OR 


ARRAY NAME NOT IN ARG, LIST 


4439 


4440 


07676 


02 00745 


EX78 


LDA 


K127 












4440 


4441 


07677 


04 07032 


EX79 


STA 


TIEX 


T (1) 


= 11 








4441 


4442 


07700 


01 07171 




JMP 


EX22 












4442 


4443 


07701 


02 00747 


EX80 


LDA 


K129 


T (1) 


« 13 








4443 


4444 


07702 


01 07677 




JMP 


EX79 












4444 


4445 


07703 


02 00724 


&X81 


IDA 


K106 












4445 


4446 


07704 


04 07032 




STA 


TIEX 


T (1) 


= 6 








4446 


4447 


07705 


01 07166 




JMP 


EX20 












4447 


4448 


07706 


02 00722 


EX82 


LDA 


K104 


T (1) 


« 4 








4448 


4449 


07707 


01 07704 




JMP 


EX81*1 












4449 


4450 


07710 


02 07031 


gX83 


LDA 


TOEX 


T <0> 


«0 








4450 


4451 


07711 


100040 




SZE 














4451 


4452 


07712 


01 07726 




JMP 


EX84 












4452 


4453 


07713 


02 00607 




LDA 


TC 


YES, 










4453 


4454 


07714 


04 07031 




STA 


TOEX 


T <0) 


s TC 








4454 


4455 


07715 


02 07755 




LDA 


EX92*1 












4455 


4456 


07716 


04 00607 




STA 


TC 


TC • - 








4456 


4457 


07717 


02 00642 




LDA 


B 












4457 


4458 


07720 


06 00726 




ADD 


K109 












4458 


4459 


07721 


04 00642 




STA 


B 












4459 


4460 


07722 


04 07037 




STA 


EXT7 












4460 


4461 


07723 


02 07725 




LDA 


• ♦2 












4461 


4462 


07724 


01 07677 




JMP 


EX79 












4462 


4463 


07725 


177773 




DEC 


•5 












4463 


4464 


07726 


10 03116 


EX84 


JST 


EROO 


ERROR 










4464 


4465 


07727 


151314 




BC! 


liRL 


MORE 1 


rHAN 1 RELATIONAL 


OPERATOR 


4465 


4466 


07730 


02 00664 


EXB5 


LDA 


F 












4466 


4467 


07731 


06 00720 




ADD 


K102 


T (5) 


« T (5) 


♦ 2 


« B « 





4467 


4468 


07732 


04 00664 




STA 


f 












4468 


4469 


07733 


06 00642 




ADD 


B 












4469 


4470 


07734 


101040 




SNZ 














4470 


4471 


07735 


01 07175 




JMP 


EX24 












4471 


4472 


07736 


10 03116 




JST 


EROO 


tRROR 










4472 


4473 


07737 


142721 




BCI 


liEQ 


MULTIPLE ««S, 


OR 


EXPRESSION TO LEFT OF « 


4473 


4474 


07740 


000250 


EX90 


OCT 


250 


( 










4474 


4475 


07741 


000003 




OCT 


3 


# 










4475 
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4476 


07742 


000005 


OCT 


5 


4477 


07743 


000001 


OCT 


1 


4478 


07744 


000002 


OCT 


2 


4479 


07745 


000310 


OCT 


310 


4480 


07746 


007117 


EX91 DAC 


EX12 


4481 


07747 


007126 


DAC 


EXi6 


4482 


07750 


007131 


DAC 


EX18 


4483 


07751 


007205 


DAC 


EX26 


4484 


07752 


Q07205 


DAC 


EX26 


4485 


07753 


Q07627 


DAC 


EX69 


4486 


07754 


000001 


EX92 OCT 


1 


4487 


07755 


000002 


OCT 


2 


4488 


07756 


000003 


OCT 


3 


4489 


07757 


000004 


OCT 


4 


4490 


07760 


000006 


OCT 


6 


4491 


07761 


000007 


OCT 


7 


4492 


07762 


000015 


OCT 


15 


4493 


07763 


000012 


OCT 


12 


4494 


07764 


000014 


OCT 


14 


4493 


07765 


000010 


OCT 


10 


4496 


07766 


000013 


OCT 


13 


4497 


07767 


000011 


OCT 


11 


4498 


07770 


000016 


OCT 


16 


4499 


07771 


000016 


OCT 


16 


4500 


07772 


007676 


EX93 DAC 


EX78 


4501 


07773 


007676 


DAC 


EX7e 


4502 


07774 


007701 


DAC 


EXdO 


4503 


07775 


007701 


DAC 


EX80 


4504 


07776 


007703 


DAC 


EX81 


4505 


07777 


007706 


DAC 


EX82 


4506 


10000 


007710 


DAC 


EX83 


4507 


10001 


007710 


DAC 


EX83 


4508 


10002 


007710 


DAC 


EX83 


4509 


10003 


007710 


DAC 


EX83 


4510 


10004 


007710 


DAC 


EX83 


4511 


10005 


007710 


DAC 


EX83 


4512 


10006 


007730 


DAC 


EX85 



NOT 

♦ 

H 
( 

• 

NOT 
H 

• 
/ 

AND 

OR 

NE 

EQ 

GT 

LT 

GE 

LE 

s 

« (fcRROR) 

• 

/ 

AND 

OR 

NE 

EQ 
GT 
LT 
GE 
LE 



4476 

4477 

4478 

4479 

4480 

4481 

4482 

4483 

4484 

4495 

4486 

4487 

4488 

4489 

4490 

4491 

4492 

4493 

4494 

4495 

4496 

4497 

4498 

4499 

4500 

4501 

4502 

4^03 

4504 

4505 

4506 

45 7 

4508 

4509 

4510 

4511 

4512 
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4514 
4514 
4515 
4516 
4517 
4518 
4519 
4520 
4521 
4522 
4523 
4524 
4525 
4526 
4527 
4528 
4529 
4530 
4531 
4532 
4533 
4534 
4535 
4536 
4537 
4538 
4539 
4540 
4541 
4542 
4543 
4544 
4545 
4546 
4547 
4548 
4549 



10007 
lOOld 
10011 
10012 
10013 
10014 
10015 

10016 
10017 
10020 
10021 
10022 
10023 
10024 
10025 
10026 
10027 
10030 
10031 
10032 
10033 



10034 
10035 
10036 
10037 



007230 

10 03116 

147720 

10 03116 

150301 

10 03116 

152717 

000000 
12 00041 
12 00041 
02 00041 
141206 
11 00044 
101000 
01 03456 
•0 01 10016 
000077 
177772 
000041 

00 ouooo 

177770 



DAC 
EX95 JST 

BCI 
EX96 JST 

BCI 
EX97 JST 

BCI 



EX34 
EROO 
1,0P 
EROO 
1»PA 
EROO 
1»U0 



NONt Of THESE 



MUHfc THAN ONE OPERATOR IN A HOW 

ERROR 

OPERATOR MUST BE WITHIN PARENTHESES 

ERROR 

MULTIPLE ♦ OR - SIGNS NOT AS UNARY OPS 
» BUMP THE I COUNT BY TWO AND CHECK FOR DATA OVERFLOW 
EX99 DAC •♦ 
I 
I 
I 



00 00000 

00 00000 

00 00000 

00 00000 



IRS 

IRS 

LDA 

AOA 

CAS 

NOP 

JMP 

JMP» 

K133 OCT 

K130 DEC 

Ki41 DEC 

K PZE 

KM6 DEC 

• 

« 



TOCA PZE 

TICA PZE 

T2CA PZE 

t9CA PZE 

• 



AS50 

EX99 

77 

• 6 

33 



-8 



•SCAN ♦ 

♦TRIAD SEARCH » 
•TEMP STORE CHECK# 









THE 



AOIN TABLE IS PROCESSED FROM THE BOTTOM 
UP AND ENTRIES ARb FORMED FOR INCLUSION 



4513 
4514 
4515 
4516 
4517 
4518 
4519 
4520 
4521 
4522 
4523 
4524 
4525 
4526 
4527 
4528 
4529 
4530 
4531 
4532 
4533 
4534 
4535 
4536 
4537 
4538 
4539 
4540 
4541 
4542 
4543 
4544 
4545 
4546 
4547 
4548 
4549 
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J^f? • IN THE TRIAU TABLh. LEVELS ARE USED 

4551 • 



^552 # THE TRIADS, SIGN CONTROL IS ALSO 



4550 
TO CONTROL THE ORDER OF ENTRY INTO 4551 

4552 



ACCOHPLISHtD IN THIS ROUTINE, 4553 



4553 * 

4554 10040 000000 CAOO DAC •• 4554 

4555 10041 02 00113 LDA LO 459, 

4556 10042 04 10457 STA ACCP INDICATE EMPTY ACCUM 455* 

4557 10043 10 02676 CA04 JST STXI ESTABLISH I 4I5? 

4558 10044 04 10035 STA TICA Tl « I 455a 

4559 10045 1 02 15377 LDA DP-1,1 llll 

4560 10046 03 00735 ANA K118 IF I CI-2) « 0. 4560 

4561 • 

4562 10047 04 10037 STA T9CA 



OR .LT. I (I) 4561 

4563 10050 1 02 15401 LDA DP*1,1 lllx 



4564 10051 03 00735 ANA Kile HA 

4565 10052 11 10037 CAS T9CA 45I5 

4566 10053 01 10061 JMP CA08 GO TO CAOfl 4^11 

4567 10054 101000 NOP 45S7 

4568 10055 02 00041 LDA I iHi 

4569 10056 07 00720 SUB K102 llH 

4570 10057 04 00041 STA I I . i-i? ^570 

4571 10060 04 00000 STA iSiJ 

4572 10061 1 02 15403 CA08 LDA DP*3,1 4575 

4573 10062 1 05 15401 ERA DP*1,1 HA 

4574 10063 04 10034 STA TOCA Ayl 

4575 10064 1 02 15401 LDA DP*1,1 lljl 

4576 10065 03 00735 ANA K118 457! 

4577 10066 04 10036 STA T2CA Zljj 

4578 10067 1 02 15401 LDA DP*1,1 4=78 

4579 10070 140100 SSP 4,7« 

4580 10071 0404 67 LGR 9 P = (I) Jiao 

4581 10072 04 00600 STA P JsqJ 

4582 10073 11 00720 CAS K102 IF P IS NOT » OR /» GO TO CCAIC 4582 

4583 10074 11 00723 CAS K105 ' 458? 

4584 10075 01 10100 JMP CAIO 4584 

4585 10076 01 10100 JMP rAin .^L 

4586 10077 01 10143 JMP CAli GO TO C;a14 4586 
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4587 


10100 


02 10034 CAIO 


LDA 


TOCA 


4588 


10101 


101400 


SMI 




4589 


10102 


01 10121 


JMP 


CA13 


4590 


10103 


02 10033 


LDA 


KM8 


4591 


10104 


13 00000 


IMA 


XR 


4592 


10105 


000201 


lAB 




4593 


10106 


02 00600 


LDA 


P 


4594 


10107 


1 11 10426 


CAS 


CA90*8,1 


4595 


10110 


01 10112 


JMP 


«4.2 


4596 


10111 


01 10115 


JMP 


• ♦4 


4597 


10112 


12 00000 


IRS 


XR 


4598 


10113 


01 10107 


JMP 


#-4 


4599 


10114 


01 10324 


JMP 


CA45 


460U 


10115 


1 02 10436 


LDA 


CA91*8.1 


4601 


10116 


04 00600 


STA 


P 


4602 


10117 


000201 


lAB 




4603 


10120 


04 00000 


STA 


XR 


4604 


10121 


02 10030 CA13 


LDA 


K130 


4605 


10122 


13 00000 


IMA 


XR 


4606 


10123 


000201 


lAB 




4607 


10124 


02 00600 


LDA 


P 


4608 


10125 


1 11 10426 


CAS 


CA90^8il 


4609 


10126 


01 10130 


JMP 


#♦2 


4610 


10127 


01 10137 


JMP 


CA50 


4611 


10130 


12 00000 


IRS 


XR 


4612 


10131 


01 10125 


JMP 


#•4 


4613 


10132 


000201 


lAB 




4614 


10133 


04 00000 


STA 


XR 


4615 


10134 


000201 


lAB 




4616 


10135 


1 02 15401 


LDA 


DP*1,1 


4617 


10136 


01 10140 


JMP 


•♦2 


4618 


10137 


140040 CA50 


CRA 




4619 


10140 


04 10034 


STA 


TOCA 


4620 


10141 


000201 


lAB 




4621 


10142 


04 00000 


STA 


XR 


4622 


10143 


1 02 15400 CA14 


LDA 


DP,1 


4623 


10144 


04 00576 


STA 


01 



01=A(1 ) 



U" O M T^ v- 



s 
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4624 10145 


1 02 15402 


LOA 


DP*2,1 


4625 10146 


04 00577 


STA 


02 


4626 10147 


02 10036 


LOA 


T2CA 


4627 10150 


101040 


SN2 




462a 10151 


01 10301 


JMP 


CA37 


4629 10152 


1 02 15377 


LOA 


DP-1,1 


4630 10153 


140100 


SSP 




4631 10154 


0404 67 


LGR 


9 


4632 10155 


04 10035 


STA 


TICA 


4633 10156 


1 02 13377 


LDA 


DP-1,1 


4634 10157 


03 00735 


ANA 


K116 


4635 10160 


07 10036 


SUB 


T2CA 


4636 10161 


100400 


SPL 




4637 1Q162 


01 10203 


JMP 


CAia 


4638 10163 


100040 


SZi 




4639 10164 


01 10043 


JMP 


CA04 


4640 10165 


02 00577 


LOA 


02 


4641 10166 


07 10457 


SUB 


ACCP 


4642 10167 


100040 


SZE 




4643 10170 


01 10043 


JMP 


CA04 


4644 10171 


02 U0600 


LDA 


P 


4645 10172 


07 00721 


SUB 


K103 


4646 10173 


101400 


SMI 




4647 10174 


01 10314 


JMP 


CA39 


4648 10175 


02 10035 


LDA 


TICA 


4649 10176 


07 00600 


SUB 


P 


4650 10177 


100040 


SZE 




4651 10200 


02 00717 


LDA 


KlOl 


4652 10201 


06 00717 


ADD 


KlOl 


4653 10202 


04 00600 


STA 


P 


4654 10203 


02 00041 CA18 


LDA 


I 


4655 10204 


04 00000 


STA 





4656 10205 


1 02 15402 CA20 


LDA 


DP+2,1 


4657 10206 


1 04 15400 


STA 


DP#1 


4656 10207 


1 02 15403 


LDA 


DP*3,1 


A £. tiri * nn * i\ 


^ ^ ^ i » * 






-^W^y XMCXKi 


i u«f i?*tui 


STA 


DP+1,1 


4660 10211 


14010U 


SSP 





02 « A ( 1*2) 



IF ZERO, GO TO CA37 



IF T2 ,GT. I (1-2) 



GO ro 

P = - OR ♦ 



J«I 

AQIi>J(j) s A0IN(J*2) 



4624 

4625 

4626 

4627 

4626 

4629 

4630 

4631 

4632 

4633 

4634 

4635 

4636 

4637 

4538 

4639 

4640 

4641 

4642 

4643 

4644 

4645 

4646 

4647 

4648 

4649 

4650 

4651 

4652 

4653 

4654 

46 55 

4656 

4657 

465^ 

4659 

4660 
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4661 

4662 

^ ' '^*'^ 4663 

4664 
466$ 
4666 
4667 

If (I) z , 4^6g 

4669 
4670 
4671 
4672 

r.r. r ^^ ^ 7 3 

GO TO CA30 4674 

TRIAD SEARCH 4675 

4676 
IF P s ♦,», AND» OR 4677 

46 7 tt 
GO TO CA37 4679 

46aQ 
ELSE:, GO TO CA26 468I 

4682 
4683 
4684 
4685 
4686 
4687 
4688 
4689 
4690 
4691 
4692 
4693 
4694 
4695 
IF H » - 4696 

GOTL) 4697 



4661 


10212 


101040 


SNZ 




4662 


10213 





01 


10217 


JMP 


CA22 


4663 


10214 





12 


00000 


IRS 


XR 


4664 


10215 





12 


00000 


IRS 


XR 


4665 


10216 





01 


10205 


JMP 


CA20 


4666 


10217 





10 


02676 CA22 


JST 


STXI 


4667 


10220 


1 


02 


15401 


LDA 


DP+1,1 


4668 


10221 


140100 


SSP 




4669 


10222 


0404 


67 


LGR 


9 


4670 


10223 





11 


00600 


CAS 


P 


4671 


10224 





01 


10230 


JMP 


CA24 


4672 


10225 





11 


00752 


CAS 


K134 


4673 


10226 





01 


10230 


JMP 


CA24 


4674 


10227 





01 


10256 


JMP 


CA30 


4675 


10230 





10 


10335 CA24 


JST 


STOO 


4676 


10231 





02 


00600 


LDA 


P 


4677 


10232 





11 


00751 


CAS 


K132 


4678 


10233 





01 


10254 


JMP 


CA28 


4679 


10234 





01 


10301 


JMP 


CA37 


4680 


10235 





11 


00725 


CAS 


K107 


4681 


10236 





01 


10254 


JMP 


CA28 


4682 


10237 





01 


10301 


JMP 


CA37 


4683 


10240 





11 


00724 


CAS 


K106 


4684 


10241 





01 


10254 


JMP 


CA26 


4685 


10242 





01 


10301 


JMP 


CA37 


4686 


10243 





11 


00721 


CAS 


K103 


4687 


10244 





01 


10254 


JMP 


CA28 


4688 


10245 





01 


10301 


JMP 


CA37 


4689 


10246 





11 


00717 


CAS 


KlOl 


4690 


10247 





01 


10251 


JMP 


CA26 


4691 








• 






4692 








• 






4693 








• 






4694 


10250 





01 


10301 


JMP 


CA37 


4695 


10251 





11 


00720 CA26 


CAS 


K102 


4696 


10252 





01 


10254 


JMP 


• ♦2 


4697 


10253 





01 


10276 


JMP 


CA35 



HONEYWELL COMPUTER CONTROL DIVISION PROGRAM DOCUMENTATION 



• C210-0U1-6601 (FRTN) 3C .>iO . 18046^000 KfcV. D PAG£ li2 



4696 


10254 


02 


00576 


CA26 


LDA 


01 




4699 


10255 


10 


10404 




JST 


TCOO 


TtMP STORE CHECK 


4700 


10256 


02 


00577 


CA30 


LDA 


02 




4701 


10257 


10 


10404 




JST 


TCOO 


TEMP STORE CHECK 


4702 


10260 


10 


10436 


CA31 


JST 


ETOO 


ENTER TRIAD 


4703 


10261 


10 


02676 


CA32 


JST 


STXI 




4704 


10262 


02 


00576 




LDA 


01 




4705 


10263 


1 04 


15400 




STA 


DP,1 




4706 


10 264 


1 02 


15401 




LDA 


DP*1,1 




4707 


10265 


0400 


61 




LRL 


15 




4708 


10266 


02 


10034 




LDA 


TOCA 




4709 


10267 


0404 


61 




LGR 


15 




4710 


10270 


0410 


61 




LLL 


15 




4711 


10271 


1 04 


15401 




STA 


DP*1,1 




4712 


10272 


02 


10036 




LDA 


T2CA 


IF T2 NOT ZERO, 


4713 


10273 


100040 




S2E 






4714 


10274 


01 


10043 




JMP 


CA04 


GO TU CA04 


4715 


10275 


-0 01 


10040 




JMP» 


CAOO 


ELSE, RETURN 


4716 


10276 


02 


10034 


CA35 


LDA 


TOCA 




4717 


10277 


05 


15034 




ERA 


.♦100000 




4718 


10300 


04 


10034 




STA 


TOCA 




4719 


10301 


02 


00577 


CA37 


LDA 


02 




4720 


10302 


13 


00576 




IMA 


01 


01 » = 02 


4721 


10303 


04 


00577 




STA 


02 




4722 


10304 


101040 




SNZ 




IF 02 « 0, 


4723 


10305 


01 


10261 




JMP 


CA32 


GO TO CA32 


4724 








• 








4725 








* 








4726 








• 








4727 


10306 


10 


10335 




JST 


STOO 


TRIAD SEARCH 


4728 


10307 


02 


10034 




LDA 


TOCA 




4729 


10310 


101400 




SMI 






4730 


10311 


01 


10254 




JMP 


CA28 


GO TO CA28 


4731 


10312 


02 


00600 




LDA 


P 




4732 


10313 


01 


10251 




JMP 


CA26 


bLSfc, GO TO CA26 


4733 


10314 


07 


00746 


CA39 


SUB 


K128 




4734 


10315 


101040 




SNZ 




IF H s , OR 



4698 
4699 
4700 
4701 
4702 
4703 
4704 
4705 
4706 
4707 
4708 
4709 
4710 
4711 
4712 
4713 
4714 
4715 
4716 
4717 
4718 
4719 
4720 
4721 
4722 
4723 
4724 
4725 
4726 
4727 
4728 
4729 
4730 
4731 
4732 
4733 
4734 
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4735 


10316 


01 10043 


JMP 


CA04 


4736 


10317 


02 10035 


LDA 


TICA 


4737 


10320 


07 00722 


SUB 


K104 


4738 


10321 


100040 


SZE 




4739 


10322 


01 10203 


JMP 


CA18 


4740 


10323 


01 10043 


JMP 


CA04 


4741 


10324 


02 10035 CA45 LDA 


TICA 


4742 


10325 


04 00U41 


STA 


I 


4743 


10326 


04 10036 


STA 


T2CA 


4744 


10327 


140040 


CRA 




4745 


10330 


04 10034 


STA 


TOCA 


4746 


10331 


04 00577 


STA 


02 


4747 


10332 


07 00731 


SUB 


KllO 


4748 


10333 


04 00600 


STA 


P 


4749 


10334 


01 10230 


JMP 


CA24 


4750 








IF T 


4751 










4752 










4753 










4754 










4755 


10335 


000000 : 


STOO DAC 


• • 


4756 


10336 


02 00664 


LDA 


F 


4757 


10337 


06 00721 


ADD 


K103 


4758 


10340 


100040 


SZE 




4759 


10341 


01 10353 


JMP 


STIO 


4760 


10342 


02 00600 ; 


5T05 LDA 


P 


4761 


10343 


07 00755 


SUB 


K139 


4762 


10344 


101040 


SNZ 




4763 


10345 


01 10260 


JMP 


CA31 


4764 


10346 


02 00576 


LDA 


01 


4765 


10347 


07 10457 


SUB 


ACCP 


4766 


10350 


101040 


SNZ 




4767 


10351 


01 10256 


JMP 


CA30 


4766 


10352 


-0 01 10335 


JMP* 


STOO 


4769 


10353 


02 00113 J 


5T10 LDA 


L6 


4770 


10354 


04 00000 


STA 


XR 


4771 


10355 


02 00000 £ 


>T20 LDA 


XK 



ELSE, 

60 TO CAie 



I 8 Tl 



02 « C « 
P » C 

QO TO CA24 
HE CURRENT TRIAD (IN WORKlfMG STORAGE) MATCHES 
ANY TRIAD TABLE ENTRY, EXIT WITH THE 
POINTER VALUE OF THE MATCHING ENTRY 
(THIS ACCOMPLISHES ELIMINATION OF REDUNDANT 
SUBEXPRESSION CALCULATIONS. 

TRIAD SEARCH 



GO TO STIO 
ELSE, IF p « X 



GU TO CA31 

ELSE, IF 01«ACCP 



GO TO CA30 
ELSE, RETURN 



4735 
4736 
4737 
4738 
4739 
4740 
4741 
4742 
4743 
4744 
4745 
4746 
4747 
4748 
4749 
475U 
4751 
4752 
4753 
4754 
4755 
4756 
4757 
4756 
4759 
4760 
4761 
4762 
4763 
4764 
4765 
4766 
4767 
4^68 
4769 
4770 
477i 
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4772 10356 07 00721 SUB K103 477, 

4773 10357 04 OOOQO STA XR J a J. 2 477^ 

4774 10360 07 00044 SUB L IF J .LT. L 4774 

4775 10361 100400 SPL 477k 

4776 10362 01 10342 JMP STU5 GO TO ST05 477* 

4777 10363 02 00577 LDA 02 4777 

4779 llltt UUaI'''' sZE '''' '' ''''''' •''• ^'^'''''''' ^7^S 

4780 10366 01 10355 JMP ST20 GO TU ST20 478n 

4781 10367 1 02 15402 LDA DP42,1 47a? 

nil J??3? ^^°i°° 55P feXTRACT OFF STORE: BIT 4782 

4783 10371 07 00600 SUB P liH 

4784 10372 100040 SZE /jH 

4785 10373 01 10355 JMP ST20 47Bk 

4786 10374 02 00576 LDA 01 470' 

4787 10375 1 07 15401 SUB DP*1,1 47S7 

4788 10376 100040 SZE /yti 

4789 10377 01 10355 JMP ST20 01 « J Ijll 

4790 10400 02 00000 LDA XR 470n 

4791 10401 04 00576 STA 01 4791 

4792 10402 10 02676 JST STXI ESTABLISH I 4792 

4793 10403 01 10261 JMP CA32 GO TO CA32 4793 
^^11^ * IF J IS A REFERENCE TO A TRIAD , THE TEMP 4794 

nil *«.n. « . * 2^°^^ ^^^ ^^' T^^ REFERENCED TRIAD IS SET,) 4795 

4796 10404 000000 TCOO DAC •# TEMP STORE CHECK 4795 

4797 10405 04 00000 STA XR 479? 

4798 10406 02 00054 LDA ABAR 479^ 

4799 10407 07 OOOOU SUB XR 4790 

4800 10410 101400 SMI IS J .GR. ABAR 4800 

4801 10411 -0 01 10404 JMP» TCOO NO. 4801 

4802 10412 1 02 15402 LDA DP*2,1 YES, 48Q2 

4803 10413 140500 SSM 

4804 10414 1 04 15402 STA DP*2»i b(J) « 1 AiinA 

4805 10415 -0 01 10404 JMP« TCOO Ignc 

4806 10416 000001 CA90 OCT 1, 2, 11 , lU , 13, 14 , 12 ,1^ 



10417 nnnnn? 
10420 000011 



4603 
4804 
4805 
4806 
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10421 000010 

10422 000013 

10423 000014 

10424 000012 

10425 000015 .„__ 

4807 10426 000002 CA91 OCT 2#1 »13, 14, 11, 10 # 12, 15 '*^^^ 
10427 000001 

10430 000013 

10431 000014 

10432 000011 

10433 000010 

10434 000012 

10435 000015 

4808 * 

4809 * 



4812 
4813 
4814 



4808 
48Q9 
4810 



4810 .f... 

4811 • •ENTER TRIAD* ^8ii 

• STORE CURRENT TRIAD INTO THE NEXT TRIAD ENTRY 4813 

.„^^ ♦ LOCATION, ^^^^ 

4815 10436 000000 ETOO DAC •• H^l 

4816 10437 10 030U7 JST SAV 2«i7 

4817 10440 02 00044 LDA L Tfiio 

4818 10441 07 00721 SUB K103 «3 2!,o 

4819 10442 04 00044 STA L L»L.*3 ^ol* 

4820 10443 04 10457 STA ACCP SET ACCUH PTR TO LAST TRIAD ENTRY 4820 

4821 10444 04 00000 STA J»L J°21 

4822 10445 02 00600 LDA P ^"^^ 

4823 10446 1 

4824 10447 02 00576 LDA 01 



04 15402 STA DP*2,1 P<J) » P ^??'5 



4824 



4825 10450 1 04 15401 STA DP*1,1 Ol(J) « 01 JJJJ 

4826 10451 02 00577 LDA 02 

4827 10452 1 04 15400 STA DP,1 

4828 10453 02 00000 LDA 

4829 10454 04 00576 STA 01 U1«J mi 

4830 10455 10 03016 JST RST 

4831 10456 



4826 

02(JJ « 02 ^^27 

4828 



4830 



-0 01 10436 JMP# ETOO *^^^ 
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4832 10457 OOOQOO ACCP HAP •« 

4833 . '^^^ * ACCUl-i POINTER ^^,„ 

4834 4b3<i 

4^36 """ r^« S" " SUdFUNCTION T*8U ift* 

4837 •••••••*•••♦•##•##•##»#### 4Q35 

4838 ! •GENERATE SU8PR0 ENTRANCE* i®^^ 
4339 ♦•♦♦•♦•••••••»»#«###»###<nj 4837 

4840 I ^"^^^^IJ^^Vn^^T ^^^^A'^CE CODE , INCLUDING THt J^l? 

4841 10524 00 00000 TOGE PZE ^ ° ARGUMENT ADDRESS TRANSFER. J^JJ 

ifl? .^Sf!! ° °°°°°° 2^00 DAC •* 4841 

4843 10526 140040 CRA 

4844 10527 04 10524 sja 



4842 
TOQg 4843 



lAl Jn!^? ° °2 ^°^°2 "-DA K17 ( TEST ^944 

aIaj ^nlll 2 ^° °2547 JST TSOO ^ '^^^ 4845 

All i^.til ^ ^° °2373 GEIO JST NAOO tnpuT ,NAMP ^846 

4848 10533 02 00041 lDA I rr I n ^^ 4847 

4849 10534 101040 SNZ ^^^ ^'^' 4846 

4855 10542 04 00041 STa t ,^ r- 4ft%4 

JIsS' I'S^'Ii ? ^° 'i''' 'sT TXA T Xr'to'J '' '"° '«^ 

JSsA J2E!f ^ °2 15400 LDA DP,1 ^^^ ^^ ^° * 4856 

4858 10545 000201 UB 4857 

Jaah ^nVA ° ^° °^^^* JST STXI ESTABLISH i *958 

4860 10547 000201 jab " c^fAbLISH I ^^^^ 

4Afi }n!!? ^ ^^ ^^^^^ STA SFTB,! 4860 

4862 10551 10 02672 j<5T ctvA ^- 4ftAi 

4863 10552 1 02 15401 til DpJl,l ''' '' '' ' 4862 

4864 10553 000201 UB 4863 

4865 10554 10 02676 jST STXI clt vu m , 4864 

4866 10555 000201 UB ^''^ ^^ ^° ^ 4865 

4867 10556 1 04 10461 STA «;rTt..i i 4866 

4868 10557 02 00U40 [OA a' '* 4867 

4d6e 
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4069 10560 


1 04 10462 


STA 


SFTB*2,1 


4870 10561 


10 02672 


JST 


STXA 


4871 10562 


140040 


CRA 




4872 10563 


1 04 15401 


STA 


DP*1,1 


4873 10564 


02 00723 QE20 


LDA 


Ki05 


4874 10565 


000201 


lAB 




4875 10566 


02 00060 


LDA 


RPL 


4876 10567 


06 10524 


ADD 


TOG£ 


4877 10570 


06 00721 


ADO 


Kig3 


4878 10571 


10 04214 


JST 


atoo 


4879 10572 


12 10524 


IRS 


TdQE 


4880 10573 


02 00752 


LDA 


K134 


4881 10574 


07 00607 


SUB 


TC 


4882 10575 


101040 


SNZ 




4883 10576 


01 10532 


JMP 


6E10 


4884 10577 


10 02555 


JST 


IPOO 


4885 10600 


140040 


CRA 




4886 10601 


04 00640 


STA 


or 


4887 10602 


10 14127 


JST 


OAOO 


4888 10603 


02 10524 


LDA 


TOQE 


4889 10604 


04 01475 


STA 


ID 


4890 10605 


02 10623 


LDA 


K69 


4891 10606 


04 00571 


STA 


NAMF*1 


4892 10607 


10 02722 


JST 


NFOO 


4893 10610 


10 12330 


JST 


OLOO 


4894 10611 


02 10524 


LDA 


TOQE 


4895 10612 


140407 


TCA 




4896 10613 


04 10524 


STA 


TOQE 


4897 10614 


140040 


CRA 




4898 10615 


10 14127 


JST 


OAOO 


4899 10616 


12 10524 


IRS 


TOGE 


4900 10617 


01 10614 


JMP 


• •3 


4901 106^0 


-0 01 105^5 


JMP* 


QEOO 


4902 10621 


10 03116 GE30 


JST 


EROO 


4903 10622 


140705 


BCI 


liAE 


4904 10623 


140724 K69 


BCI 


1,AT 


4905 


• 







SET XR TO A 
CLEAR OLD USAGE 



(B) = UUM 

DEFINE AFT (A«RPL*T0*3) 

TO « TO+1 

IF TC « , 

GO TU GElO 
INPUT OPERATOR 



OUTPUT ABS (0) 

ID » TU 

NAMF s AT 

FILL IN REMAINING NAME 

OUTPUT OBJECT LINK 



OUTPUT NUMBER OF ARGS 
OUTPUT SPACE FOR ARG. AODR, 

RETURN 
CONSTR. ERROR 



AT 



4869 

487Q 

4871 

4872 

4873 

4874 

4875 

4876 

4877 

4876 

4879 

4880 

4881 

4882 

4883 

4884 

4885 

4886 

4887 

4888 

4889 

4890 

4891 

4892 

4893 

4894 

4895 

4896 

4897 

4898 

4899 

4900 

4901 

4902 

4903 

4904 

4905 
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4906 # •••••«••••••*••* 49g5 

4907 * »£XCHANGE LINKS* 4907 

4908 • •••••••*•••••••* 49Q5 

4909 • CI SU8A IS INTERCHANGfcD WITH CL SUQF 4909 

4910 10624 000000 ELOO DAC •• 4910 

4911 10625 10 02672 JST STXA 4911 

4912 10626 1 02 15400 LOA DP»1 4912 

4913 10627 04 10647 STA EL90 CL (F) «« CL (A) 491i 

4914 10630 02 00664 LDA F 4914 

4915 10631 04 00000 STA 4915 

4916 10632 10 10636 JST EL40 4916 

4917 10633 10 02672 JST STXA 4917 

4918 10634 10 10636 JST EL40 4918 

4919 10635 -0 01 10624 JMP* ELOO 4919 

4920 10636 000000 EL40 DAC •• 4920 

4921 10637 1 02 15400 LDA DP.l 4921 

4922 10640 13 10647 IMA EL90 4922 

4923 10641 03 00735 ANA K118 4923 

4924 10642 1 13 15400 IMA DP,1 4924 

4925 10643 03 00736 ANA K119 4925 

4926 10644 1 06 15400 ADD DP,1 4926 

4927 10645 1 04 15400 STA DP,1 4927 
4920 10646 -0 01 10636 JMP# EL40 4928 

4929 10647 00 00000 fcL90 P2E 4929 

4930 • 4930 

4931 * 4931 

4932 « ••••••••••«•«••«• 4932 

4933 • #NON COMMON TEST* 4933 

4934 » ••••••••«••••«•«« 4934 

4935 10650 000000 NMOO DAC ** NON-COMMON TEST 4935 

4936 10651 02 00631 LDA AT 4936 

4937 10652 07 00722 SUB K104 4937 

4938 10653 100040 S2E 493d 

4939 10654 -0 01 1065U JMP* NMOO 4939 

4940 10655 10 03116 JST EROO 4940 

4941 10655 lAl/id BCI 1»CR ILLbGAL COMMON REFERfcNCfc 494l 

4942 » 4942 



HONEYWELL COMPUTER CONTROL DIVISION PROGRAM DOCUMENTATION 
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4943 • 

^'^^ ♦ #*#•♦#»♦♦•♦♦»♦♦»»#•»#»»»#♦ 4944 

j?j5 # «NON DUMMY OK SUBPHO TfcST* 4045 

4946 ♦ ••«••••••«•««•«•«•«•••«»«« ty«t3 

4947 10657 000000 NDOQ DAC *» JgJ? 

4948 10660 02 00631 UDA AT TEST llll 

4949 10661 07 00723 SUB K105 H^l 

4950 10662 100040 SZE tltZ 

4951 10663 01 10667 JMP NDIO HI, 

4952 10664 10 03116 JST EROO !g|* 

nil ^nttl i^??°h.«, ^^^ ^'°* ^'■^^Q^«- ^SE OF A DUMMY ARGUMENT 4953 

4954 10666 -0 01 10657 JMP* NDOO IoIa 

4955 10667 10 02617 NDIO JST NSOO Hit 

4956 10670 -0 01 10657 JMP* NDOO ^Ag! 

^957 • y^lt 

4958 * JJ57 

40CO _ 4y5o 

J9JJ • •INPUT SUBSCRIPT* 49L 

4962 10671 00 00000 SCTO PZE !oao 

4963 10672 000000 SCOO DAC ** Hli 

4964 10673 04 10671 STA SCTO TO » (A) lilt 

4965 106^ 140040 CRA tltt 

4966 10675 04 00572 STA NS Hll 

lltl Htlt ° °i ^°^°^ STA S2 NS . S2 . S3 . 4I67 

4968 10677 04 00606 STA S3 Ull 

4969 10700 02 00702 LDA K17 (-TEST Igxl 

4970 10701 10 02547 JST TSOO Htl 

4971 10702 02 00660 SCIO LDA EBAR Jo;: 

4972 10703 101400 SMI VlIz 

nil }iUt ° °^ "Z^^ ^^^ SC15 EBAR , GR. 4973 

lilt illll ° ^° °^^2^ JST XNOO EXAMINE NEXT CHAR, JJJJ 

4975 10706 100040 SZE !o7k 

4976 10707 01 10745 jmP SC70 IF (A) NON ZERO, 497^ 

4977 10710 10 02404 SC15 JST IGOO UO TO SC70 111^7 

4978 10711 02 10671 LDA SCTO INPUT INTEGER llli 

4979 10712 100040 SZE JJJ^ 
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4980 


10713 


100400 




SPL 




4981 


10714 


01 10720 




JMP 


SC60 


4982 


10715 


02 01475 




LDA 


ID 


4983 


10716 


07 00717 




SUB 


KlOl 


4984 


10717 


01 10722 




JMP 


SC30 


4985 


10720 


10 03241 


SC60 


JST 


ASOO 


4986 


10721 


02 00040 


SC20 


LDA 


A 


4987 


10722 


000201 


SC30 


lAB 




4986 


10723 


02 10757 




LDA 


SC90 


4989 


10724 


06 00^72 




ADD 


NS 


4990 


10725 


04 10760 




STA 


SC91 


4991 


10726 


000201 




!A8 




4992 


10727 


-0 04 1076Q 




STA» 


SC91 


4993 


10730 


02 00572 




UDA 


NS 


4994 


10731 


141206 




AOA 




4995 


10732 


04 00572 




STA 


NS 


4996 


10733 


07 00721 




SUB 


K103 


4997 


10734 


100040 




SZE 




4998 


10735 


01 10740 




JMP 


SC50 


4999 


10736 


10 02555 


SC40 


JST 


IPOO 


5000 


10737 


-0 01 10672 




JMP# 


SCOO 


5001 


10740 


02 00607 


SC50 


LDA 


TC 


5002 


10741 


07 00752 




SUB 


K134 


5003 


10742 


100040 




SZE 




5004 


10743 


01 10736 




JMP 


SC40 


5005 


10744 


01 10702 




JMP 


SCIO 


5006 


10745 


10 02437 


SC70 


JST 


IROO 


5007 


10746 


02 10671 




LDA 


SCTQ 


5008 


10747 


101040 




SNZ 




5009 


10750 


01 10721 




JMP 


SC20 


5010 


10751 


02 00631 




LDA 


AT 


5011 


10752 


07 00723 




SUB 


K105 


5012 


10753 


101040 




SNZ 




5013 


10754 


01 10721 




JMP 


SC20 


5014 


10755 


10 03116 




JST 


EROU 


5015 


10756 


153304 




BCI 


l.VD 


5016 


10757 


000604 


SC90 


DAC 


SI 



ASSIGN ITEM 
S (NS*1) « A 



S(NS«1} 9 A 



NS s NS ♦ 1 



MORE: SUBSCRIPTS PERMITTED 

)-INPUT OPERATOR 

RETURN 



TERMINATOR NOT A COMMA 
GO TO SCIO 
INPUT INT VARIABLE 
CHECK FOR NON-DUMMY 
VARIABLE DIMENSIONS 



ILL&l*AL SYMBOLIC SUBSCRIPT 



4980 
4981 
4982 
4983 
4984 
4985 
4966 
4967 
4968 
4989 
4990 

4992 
4993 
4994 
4995 
4996 
4997 
4998 
4999 
5000 
5001 
5002 
5003 
5004 
5005 
5006 
5007 
5006 
5009 
5010 
5011 
5012 
5013 
5014 
5015 
5U16 
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5017 
5018 
5019 
5020 
5021 
5022 
5023 
5024 
5025 
5026 
5027 
5028 
5029 
5030 
5031 
5032 
5033 
5034 
5035 
5036 
5037 
5038 
5039 
5040 
5041 
5042 
5043 
5044 
5045 
5046 
5047 
5048 
5049 
5050 
5051 
5052 
5053 



10760 000000 SC91 DAC •• 



10761 
10762 
10763 
10764 
10765 
10766 
10767 
10770 
10771 
10772 
10773 
10774 
10775 
10776 
10777 
11000 
11001 
11002 
11003 
11004 
11005 
11006 
11007 
11010 
11011 
11012 
11013 
11014 
11015 
11016 



000000 
10 02373 
02 00631 
07 00723 
100040 
01 10771 
10 03116 
142304 
02 00655 
07 00721 
10Q040 
01 11037 
02 00721 



10 10672 
10 03656 
02 00571 
07 00572 



100040 

01 11022 

02 00606 

000201 

02 00635 

10 02703 

06 00605 

000201 

02 00634 

10 02703 

06 00604 

000201 

02 00633 



ILOO DAC 
JST 
LDA 
SUB 
SZE 
JMP 
JST 
BCI 
UOA 
SUB 
SZE 
JMP 
LDA 
JST 
JST 
LDA 
SUB 
SZE 
JMP 
LDA 
lAB 
LDA 
JST 
ADD 
lAB 
LDA 
JST 
ADD 
lAB 
LDA 



•INPUT LIST ELEMENT* 

IF THE ITEM IS AN ARRAY, PROCESS THE SUBSCRIPT 
• • 

NAOO INPUT NAMt 

AT 

K105 NON-DUMMY TEST 



»*3 

EROO 
1*DD 
lU 
K103 

IL30 
K103 

scoo 

TAOO 

ND 
NS 

ILIO 
S3 

D2 

IMOO 

S2 

Dl 

IMOO 

SI 

DO 



USAGE ERROR 
DUMMY ITEM IN AN 
IF lU NOT ARR, 



EQUIV. OR DATA LIST 



GO TO IL30 

INPUT SUBSCRIPTS 
FETCH ASSIGNS 
IF ND « NS 

SI » U» (SI ♦ Dl* (S2*D2«S3) 
ELSE, GO TO ILIO 



5017 
5018 
5019 
5020 
5021 
5022 
5023 
5024 
5025 
5026 
5027 
5028 
5029 
5030 
5031 
5032 
5033 
5034 
5035 
5036 
5037 
5038 
5039 
5040 
5041 
5042 
5043 
5044 
5Q45 
5046 
5047 
$048 
5049 
5050 
5051 
5052 
5053 
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5054 


11017 


10 


02703 




JST 


IMOO 




5094 


5055 


11020 


04 


00604 




STA 


SI 




5055 


5056 


11021 


-0 01 


10761 




JMP* 


ILOO 


RETURN 


5096 


5057 


11022 


02 


00572 


ILIO 


LOA 


NS 


IF NS NOT 1 


5057 


5058 


11023 


07 


00717 




SUB 


KlOl 




5058 


5099 


11024 


100040 




S2E 






5059 


5060 


11025 


01 


11034 




JMP 


IL20 


GO TO IL20 


5060 


5061 


11026 


02 


00604 




LDA 


SI 


ELSEi 20 


5061 


5062 


11027 


000201 




lAB 




SI » U0*S1 


5062 


5063 


11030 


02 


00633 




LDA 


DO 




5063 


5064 


11031 


10 


02703 




JST 


IMOO 




5064 


5069 


11032 


04 


00604 


IL18 


STA 


SI 




5065 


5066 


11033 


-0 01 


10761 




JMP« 


ILOO 


RETURN 


5066 


5067 


11034 


10 


03li6 


IL20 


JST 


EROO 




5067 


5068 


11035 


147304 




BCI 


l.ND 


WRONG NUMBER Of DIMENSIONS IN ARRAY ELEMENT 


5068 


5069 


11036 


-0 01 


10761 




JMP* 


ILOO 


RETURN 


5069 


5070 


11037 


10 


03642 


1130 


JST 


TVOO 


TAG VARIABLE 


5070 


5071 


11040 


140040 




CRA 




SI » 


50 71 


5072 


11041 


01 


11032 




JMP 


IL18 


RETURN 


5072 


5073 
















5073 


5074 
5075 
5076 
















5074 
5075 
5076 












•rUNCTION • 




5077 












•SUBROUTlNk* 




5077 


5078 












••••••••«••• 




5078 


5079 












IF LSTF IS ZERO, 


THE STATEMENT IS OUT OF ORDER 


5079 


5080 












FUNCTIONS ARE CHECKED TO ENSURE ARGUMENTS 


5080 


5081 


11042 


02 


00717 


Rl 


UOA 


KlOl 




5081 


5082 


11043 


04 


00046 




STA 


SFF 


SFF » 1 


5082 


5083 


11044 


02 


00072 


R2 


LDA 


LSTF 




5063 


5084 


11045 


100040 




SZE 




IF LSTF a o 


5084 


5085 


11046 


01 


11051 




JMP 


R2A 




5085 


5086 


11047 


10 


03116 




JST 


EROO 


ILLtGAL STATEMENT 


5086 


5087 


11050 


143323 




BCI 


1,FS 


NOT FIRST STATEMENT IN SUBPROGRAM 


5087 


5088 


11051 


10 


02373 


R2A 


JST 


NAUO 


INPUT NAME 


5088 


K fi an 


4 4 n C r^ 


r\ no 


nn n A n 




1 n • 


4 




Cn Or^ 


-*« wy 


X JLU -^C 


V UC 


UU WT u 




l.U« 


A 




^y wy 


5090 


11053 


04 


00047 




STA 


SBF 


SBf- a A 


5090 
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5091 
5092 
5093 
5094 
5095 
5096 
5097 
5096 
5099 
5100 
5101 
5102 
5103 
5104 
5105 
5106 
5107 
5108 
5109 
5110 
5111 
5112 
5113 
5114 
5115 
5116 
5117 
5118 
5119 
5120 
5121 
5122 
5123 
5124 
5125 
5126 
5127 



11054 
11055 
11056 
11057 
11060 
11061 
11062 
11063 
11064 
11065 
11066 
11067 
11070 
11071 
11072 
11073 
11074 
11075 
11076 
11077 
11100 



14004 
10 
02 
10004 
10 
02 
07 
10004 
01 
02 
10104 
01 
10 
14330 
14004 
04 
10 
01 
14004 
10 
01 





14312 

00045 



04026 

00607 

00756 



11072 

00046 



11076 

03116 

1 



00041 

10525 

04266 



14127 

04271 



R2C 



R2D 



CRA 
JST 
IDA 
SZE 
JST 
LDA 
SUB 
SZE 
JMP 
LDA 
SNZ 
JMP 
JST 
BCI 
CRA 
STA 
JST 
JMP 
CRA 
JST 
JMP 



ONOO 
MFL 

DHOO 

TC 

CRET 

R2C 
SFF 

R2D 

EROO 

1*FA 

I 

GEOO 

Al 

OAOO 
C6 



AUDRsO, S/C CODE «0 

OUTPUT NAME BLOCK TO THfc LUAUtR 



DEFINE IM 

IF TC NOT C/R 

GO TO 

IF SFF » 

GO TO R2D 

ERROR 

FUNCTION HAS NO ARGUMENTS 

I » 

GENERATE SUBPROGRAM ENTRY 

GO TO C/R TEST 

OUTPUT ABS 

GO TO CONTINUE 



11101 
111Q2 
11103 
11104 
11105 



02 00717 A3 

01 11112 

02 00720 A4 

01 11112 

02 U0724 A5 



LDA 
JMP 
LDA 

JMP 
LDA 



•INTEGER * 
♦REAL • 

•DOUBLE PRECISION* 
•COMPLEX • 

♦LOGICAL • 

THE MODE FLAG (MFL) IS SET TO THE APPROPRIATE 

VALUE AND ANY ARRAY INFO IS PROCESSED 

KlOl INTEGER 

A7A TMFL « INT 

Ki02 REAL 

A7A TMFL « REAL 

K106 UOUBLfc PRECISION 



5091 
5092 
5093 
5094 
5095 
5096 
5097 
5096 
5099 
5100 
5101 
5102 
5103 
5104 
5105 
5106 
5107 
5106 
5109 
5110 
5111 
5112 
5113 
5114 
5115 
5116 
5117 
5118 
5119 
5120 
5121 
5122 
5123 
5124 
5125 
5126 
5127 
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5128 


11106 


01 


11112 




JMP 


A7A 


5129 


11107 


02 


00723 


A6 


LDA 


K105 


5130 


11110 


01 


11112 




JMP 


A7A 


5131 


11111 


02 


00721 


A7 


LOA 


K103 


5132 


11112 


04 


00045 


A7A 


STA 


MFL 


5133 


11113 


02 


00072 




LDA 


LSTF 


5134 


11114 


101040 




SNZ 




5135 


11115 


01 


11140 




JMP 


A7B 


5136 


11116 


02 


00662 




LDA 


CC 


5137 


11117 


04 


11144 




STA 


A790 


5138 


11120 


140040 




CRA 




5139 


11121 


04 


00651 




STA 


ICSW 


5140 


11122 


10 


01521 




JST 


DNOO 


5141 


11123 


02 


11144 




LDA 


A790 


5142 


11124 


04 


00662 




STA 


CC 


5143 


11125 


04 


00651 




STA 


ICSW 


5144 


11126 


02 


00643 




LDA 


DFL 


5145 


11127 


100040 




SZE 




5146 


11130 


01 


11140 




JMP 


A7B 


5147 


11131 


02 


01475 




LDA 


TID 


5148 


11132 


07 


11137 




SUB 


A7K 


5149 


11133 


101040 




SNZ 




5150 


11134 


01 


04602 




JMP 


A9 


5151 


11135 


10 


03116 


A7A5 


JST 


ERog 


5152 


11136 


152306 




BCI 


l.TF 


5153 


11137 


143325 


A7K 


BCI 


1,FU 


5154 


11140 


10 


02373 


A7B 


JST 


NAOO 


5155 


11141 


02 


00045 




LDA 


MFL 


5156 


11142 


10 


04026 




JST 


DMOO 


5157 


11143 


01 


11246 




JMP 


87 


5158 


11144 


00 


00000 


A/90 


PZE 





5159 














516Q 














5161 










« 


62 


5162 












TAGS 


Rl ATt 


^ n dK 


n < n 


noxt I 


WJ 


lOT 


ki A n M 


» * V V 


* * ■*. ' •^ 


V *. V 


W fe V f w 


w«. 


W ^^ 1 


1^ l»U V 


5164 


11146 


lU 


03465 




JST 


TGOO 



TMFL « DBL 

COMPLEX 

TMFL « CPX 

LOGICAL 

TMFL » LOG 

IF LSTF « 0# ^0 TO A7B (2) 

kLSE, 
SAVE CC 



INPUT UNA 
RESTORE CC 

I CSW s T PL 

IF UFL NOT » 0, GO TO A7B 



IF ID « FUNCTI, 

GO TO A9 

SKIP IF NOT 'FUNCTION* 

FUNCTION PROCESSOR 

CONSTRUCTION ERROR 

*TYPE' NOT FOLLOWED BY 'FUNCTION' 

CONSTANT FOR 'FUNCTION* CHECK 

INPUT NAME 

DEFINE IM 

GO TO INPUT DIMENSION 



OR LIST 



EXTERNAL 
TAGS NAME AS SUBPROGRAM 



TAG SjBPRoGRAh 



5128 
5129 
5130 
5131 
5132 
5133 
5134 
5135 
5136 
5137 
5136 
5139 
5140 
5141 
5142 
5143 
5144 
5145 
5146 
5147 
5148 
5149 
5150 
5151 
5152 
5153 
5154 
5155 
5156 
5157 
5158 
5159 
5160 
5161 
5162 

5164 
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5165 
5166 
5167 
5168 
5169 
5170 
5171 
5172 
5173 
5174 
5175 
5176 
5177 
5178 
5179 
5180 
5181 
5182 
5183 
5184 
5185 
5186 
5187 
5188 
5189 
5190 
5191 
5192 
5193 
5194 
5195 
5196 
5197 
5198 
5199 
5200 
5201 



11147 01 02567 



JMP Bl 



GO TO , OR C/R TEST 



1150 
1151 
1152 
1153 
1154 
1155 
1156 
1157 
1160 
1161 
1162 
1163 
1164 
1165 
1166 
1167 
1170 
1171 
1172 
1173 
1174 
1175 
1176 
1177 
1200 
1201 
1202 
1203 



00 
00 
00 
00 
10 
02 
07 
10004 
14050 
04 
02 
04 
02 
04 
02 
07 
10004 
10 

10 

1 02 
0400 
02 
0410 



04 
02 
10 
02 
04 



00000 

00000 

00000 

00000 

02373 

00631 

00723 





11150 

00630 

11153 

00040 

11151 

00631 

00723 



02603 

02672 

15401 

62 

00721 

62 

15401 

11150 

10672 

00604 

01475 



* 
# 

* 

• 

a3T0 P2E 

B3T1 PZE 

B3T2 PZE 

B3T3 PZE 

B3 JST 



B3A 



B3B 



LDA 
SUB 
SZE 
SSM 
STA 
LDA 
STA 
UDA 
STA 
LDA 
SUB 
SZE 
JST 
siST 
LDA 
LRL 
LDA 
LLL 
STA 
LDA 
JST 
LDA 
STA 



PR 









NA 

AT 

Ki 



•DIMENSION • 

•INPUT DIMENSION* 
•«••«••*•••«••••• 

OCESS ARRAYS, PUT DIMENSION 
ARRAY POINTER ITEM 



INFO IN SPECIAL 



00 
05 



B3T0 

AF 

B3T3 

A 

B3T1 

AT 

K1Q5 

NUOO 

STXA 

DP*1,1 

14 

Ki03 

14 

DP*1,1 

83T0 

SCOO 

SI 

ID 



IF AT « DUM 

(A) s 

ELSE (A) « .LT. 

TO ' (A) 

T3 » AF 

Tl » A 

TEST FOR AT«DUMMY 

«5 

SKIP NO-USAGE TEST IF DUMMY 
NO USAGE TEST 

lU (A) B ARR 



(A) s TO 

INPUT SUBSCRIPT 



5165 
5166 
5167 
5168 
5169 
5170 
5171 
5172 
5173 
5174 
5175 
5176 
5177 
5178 
5179 
5180 
5181 
5182 
5iiB3 
5184 
5185 
5186 
5187 
5188 
518V 
5190 
5191 
5192 
5193 
5194 
5195 
5196 
5197 

519a 

5199 
520n 
5201 
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§202 11204 

5203 11205 

5204 11206 

5205 11207 

5206 11210 

5207 11211 

5208 11212 

5209 11213 

5210 11214 

5211 11215 

5212 11216 

5213 11217 

5214 11220 

5215 11221 

5216 11222 

5217 11223 

5218 11224 

5219 11225 

5220 11226 

5221 11227 

5222 11230 

5223 11231 

5224 11232 

5225 11233 

5226 11234 

5227 11235 

5228 11236 

5229 11237 

5230 11240 

5231 11241 

5232 11242 

5233 11243 

5234 11244 

5235 11245 

5236 11246 

5237 11247 

5238 11250 



02 00605 LDA 
04 01476 STA 
02 00606 LDA 
04 01477 STA 
02 00572 LDA 
0400 60 LRL 
10 04252 JST 

10 02672 JST 

1 02 15401 LDA 
0412 76 LLR 

02 11153 LDA 
0414 76 LGL 
0402 76 LRR 

1 04 15401 STA 
02 00040 LDA 
04 11152 STA 
02 lliSl LDA 
04 00040 STA 

10 02672 JST 

1 02 15401 LDA 
0412 76 LLR 

02 11152 LDA 
0414 76 LGL 
0402 76 LRR 

1 04 15401 STA 
02 00607 B3D LDA 
07 00722 SUB 

100040 sze 

01 02567 JMP 

02 04600 LDA 

07 11333 SUB 

100040 SZE 

01 02567 JMP 

01 11265 JMP 

02 00607 B7 LDA 

07 00702 SUR 

100040 SZE 



S2 

ID*1 

S3 

ID*2 

NS 

16 

AAOO 

STXA 

DP*1»1 

2 

B3T3 

2 

c 

DP*1,1 

A 

B3T2 

B3T1 

A 

STXA 

DP*1,1 

2 

B3T2 

2 

2 

DP*1,1 

TC 

K104 

Bl 

A9T2 

B429 

31 

B40 

TC 

K17 



PLACk SUBSCRIPTS IN ID 

U) a 0, B = NS 
ASSIGN SPECIAL 



DEFINE: GF TO GF(A) 
T2 3 A 

A « Tl 



DEFINE QF TO GF(A) 

IF TC NOT SLASH 

GO TO ,-C/R TEST 
IF SIUSW s COMmON-4 

GO TO 84 (COMmON-O) 
ELSfci GO TO »-C/R TEST 

IF TC = ( 



5202 

5203 

5204 

5205 

5206 

5207 

5208 

5209 

521U 

5211 

5212 

5213 

5214 

5215 

5216 

5217 

5218 

5219 

5220 

5221 

5222 

5223 

5224 

5225 

5226 

5227 

5228 

5229 

5230 

5231 

5232 

5233 

5234 

5235 

5236 

5237 

523a 



HONEYWELL 



COMPUTER CONTROL DIVISION 



PROGRAM DOCUMENTATION 



» C210-001-6601 (FRTN) 



■S'C ^iO,160463GuU 



Rfcv, U 



PAGfc 147 



5239 


11251 





01 


11235 




JMP 


B3D 


5240 


11252 





01 


11155 




JMP 


B3A 


5241 










* 






5242 










« 






5243 










« 




• » 


5244 










• 




•C 


5245 










* 




• • 


5246 










* 




INPUT 


5247 










* 






5248 










• 






5249 


11253 





02 


02731 


84 


LDA 


K81 


5250 


11254 





04 


01475 




STA 


ID 


5251 


11255 





04 


01476 




STA 


ID*1 


5252 


11256 





04 


01477 




STA 


ld*2 


5253 


11257 





02 


11333 




LDA 


B4Z9 


5254 


11260 





04 


04600 




STA 


A9T2 


5255 


11261 





10 


01256 




JST 


CHOO 


5256 


11262 





07 


00674 




SUB 


K9 


5257 


11263 


100040 




SZE 




5258 


11264 





01 


11331 




JMP 


B4E 


5259 


11265 





10 


U1521 


B40 


JST 


DNOO 


526Q 


11266 





02 


00722 




LDA 


K104 


5261 


11267 





10 


02547 




JST 


TSOO 


5262 


11270 


0400 


40 


B4B 


LRL 


32 


5263 


11271 





02 


00717 




LDA 


KlOl 


5264 


11272 





10 


04252 




JST 


AAOO 


5265 


11273 





02 


00056 




LDA 


CFL 


5266 


11274 


101040 




SNZ 




5267 


11275 





02 


00040 




LDA 


A 


5268 


11276 





04 


00056 




STA 


CFL 


5269 


11277 





02 


00040 




LDA 


A 


5270 


11300 





04 


00664 




STA 


F 


5271 


11301 





10 


03770 




JST 


FLOO 


5272 


11302 


100040 




SZE 




5273 


11303 





01 


11320 




JMP 


B4D 


5274 


11304 





02 


00056 




LDA 


CFL 


5275 


11305 





04 


ooouo 




STA 






•••••• 

OMMON* 

BLOCK NAMES AND LINK THEM WITH THE 
FOLLOWING VAR/ARRAY NAMES, BLOCK NAMES 
ARE LINKED TOGETHtK THROUGH THEIR GENERAL FIELDS 



SET SWITCH IN INPUT DIMENSION 

INPUT CHAR 
IF NOT SLASH 
GO TO 

INPUT UNA 
SLASH TEST 



(A) » SUB, (B) « 
ASSIGN SPECIAL 



FETCH LINK 



5239 

5240 

5241 

5242 

5243 

5244 

5245 

5246 

5247 

5248 

5249 

5250 

5251 

5252 

5253 

5254 

5255 

5256 

5257 

5256 

5259 

5260 

5261 

■3262 

5263 

5264 

5265 

5266 

5267 

5268 

5269 

5270 

5271 

5272 

5273 

5274 

5275 
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5276 
5277 
5278 
5279 
5280 
5281 
5282 
5283 
5284 
5285 
5286 
5287 
5288 
5289 
5290 
5291 
5292 
5293 
5294 



11306 
11307 
11310 
11311 
11312 
11313 
11314 
11315 
11316 
11317 
11320 
11321 
11322 
11323 
11324 
11325 
11326 
11327 
11330 



5295 11331 

5296 11332 



5297 
5298 
5299 
5300 
5301 
5302 
5303 
5304 
5305 
5306 
5307 
5308 
5309 
5310 
5311 
5312 



11333 
11334 



11335 
11336 
11337 
11340 
11341 
11342 
11343 



1 02 15401 LDA 

13 00040 IMA 

04 30000 STA 

13 00040 IMA 

1 04 15401 STA 
02 00056 LDA 
04 00000 STA 
02 00040 LDA 

06 00740 ADO 

1 04 15401 STA 
10 02373 B4D JST 
10 10657 JST 
10 10650 JST 

10 106^4 JST 

02 15400 LDA 

03 11334 ANA 
06 00740 ADD 

04 15400 STA 
01 11246 JMP 
10 01251 B4E JST 
01 11270 JMP 





1 





1 







011320 

107777 



B4Z9 DAC 
B4F OCT 



02 00646 B5 LDA 

04 00041 STA 

07 00717 SUB 

04 00646 STA 

07 00054 SUB 

101400 SMI 

01 11346 JMP 



DP*lil 

A 



A 

DP*1,1 

CFL 

0" 

A 

K122 

DP*1,1 

NAOO 

NDOO 

NMOO 

ELOO 

DP,1 

B4F 

K122 

DPil 

B7 

ucoo 

B48 
B4D 
107777 



GFCUFL) 

IND£X 3 A 

GF(A) » GF(CFL) 

INDEX s CFL 

K*0400U0 

GF(CFL) » A 

INPUT NAME 

NON DUMMY/SU8PR0G TEST 

NON-COMMON TEST 

EXCHANGE LINKS 

•'107777 

ATCA) = COM (■•040000) 

UNINPUT COLUMN 

GO TO INPUT DIMENSION 

EXTRACT MASK TO STRIP OFF AT FIELD 



•EQUIVALENCE* 

STORE EQUIV INFO IN THE DATA POOL FOR LATER 

PROCESSING BY GROUP EQUIV (PART OF SPECS WRAPUP) 

EO L«NEXT WORD IN EQUIVALENCE TABLE 

I laL 

KlOl (si) 

EO LsL-1 
ABAR 

#♦3 



5276 
5277 
5278 
5279 
5260 
5261 
5262 
5283 
5284 
5285 
5266 

5266 
5269 
5290 
5291 
5292 
5293 
5294 
5295 
5296 
5297 
5298 
5299 
5300 
5301 
53U2 
5303 
5304 
5305 
5306 
5307 
5308 
5309 
531U 
5311 
5312 



HONEYWELL 



COMPUTER CONTROL DIVISION 



PROGRAM DOCUMENTATION 



* C210-001-6601 (fRTN) 



iC No.l8046iOOO 



RfcV, D 



PAGI: i49 



5313 

5314 

5315 

5316 

5317 

5318 

5319 

5320 

5321 

5322 

5323 

5324 

5325 

5326 

5327 

5328 

5329 

5330 

5331 

5332 

5333 

5334 

5335 

5336 

5337 

5338 

5339 

5340 

5341 

5342 

5343 

5344 

5345 

5346 

5347 

5348 

5349 



11344 
11345 
11346 
11347 
11350 
11351 
11352 
11353 
11354 
11355 
11356 
11357 
11360 
11361 
11362 
11363 
11364 
11365 
11366 
11367 
11370 
11371 
11372 
11373 



10 03116 JST 

146717 BCI 

10 02676 JST 
140040 CRA 

1 04 15400 STA 

10 01256 85B JST 

1 02 15400 LDA 
100040 SZE 
01 11371 JHP 

02 00607 LDA 
0414 70 LGL 

1 04 15400 B5C STA 
02 00607 LDA 
07 00756 SUB 
101040 SNZ 

01 04271 JMP 

1 02 15400 LDA 
03 00727 ANA 
101040 SNZ 
01 11351 JMP 
01 11335 JMP 

02 00607 B5D LDA 

1 05 15400 ERA 
01 11357 JMP 



EROO 
1#M0 
STXI 

DP,1 
CHOO 
DP,1 

B5D 

TC 

8 

DP,1 

TC 

CRET 

C6 

DPil 

KlOO 

B5B 

B5 

TC 

DP,1 

B5C 



DATA POOL FULL 
MEMORY OVERFLOW 
ESTABLISH I 

DP (I) « 

INPUT CHAR 



PUT IN FIRST CHARACTER 
PACK INTO DP (1) 



CHAHACTER E C/R - EXIT 



WORD NOT FULL 

OBTAIN NEM WORD 

PUT In SECOND CHARACTER 



♦RELATE COMMON ITEMS* 



11374 
11375 
11376 
11377 



00 00000 C2T0 PZE 

02 00056 C2 LDA 

04 00040 STA 

140040 C2A CRA 



ALL ITEMS LINKED TO A COMMON BLOCK ARE PROCESSED 
AND THEIR INVERSE OFFSETS CALCULATED. THESE 
WILL BE INVERTED LATER TO GIVE TRUE " 
POSITION IN THE BLOCK. 





CFL 

A 



A « F » CFL 



5313 
5314 
5315 
5316 
5317 

5316 
5319 

5320 
5321 

5322 
5323 
5324 

5325 
5326 
5327 
5328 
5329 
5330 
5331 
5332 
5333 
5334 
5335 
5336 
5337 
5338 
5339 
5340 
5341 
5342 
5343 
5344 
5345 
5346 
5347 
534G 
5349 



HONEYWELL 



COMPUTER CONTROL DIVISION 



PROGRAM DOCUMENTATION 



» C210-001-6601 (FRTN) 



vSC NO, 180463000 



RhV, D 



PAGt 150 



5350 

5351 

5352 

5353 

5354 

5355 

5356 

5357 

5358 

5359 

5360 

5361 

5362 

5363 

5364 

5365 

5366 

5367 

5368 

5369 

5370 

5371 

5372 

5373 

5374 

5375 

5376 

5377 

5378 

5379 

5380 

5361 

5362 

5383 

53ti4 

5365 

5386 



11400 
11401 
11402 
11403 
11404 
11405 
11406 
11407 
11410 
11411 
11412 
11413 
11414 
11415 
11416 
11417 
11420 
11421 
11422 
11423 
11424 
11425 
11426 
11427 
11430 
11431 
11432 
11433 



04 
02 
04 
10 
10104 
01 
02 
06 
04 
10 
01 
10 
10004 
01 
02 
04 
07 
10004 
01 
01 
02 
07 
10 
02 
10004 
01 
10 
01 



11374 

00040 

00664 

U3770 C2B 



11413 

00633 

11374 

11374 

04041 

11403 

03770 C2D 



11424 

00630 

00040 

00056 



11377 

11442 

11374 C2F 

006^0 

04041 

Q0655 



11413 

03642 

11413 

* 

« 

* 

« 



STA 
LDA 
STA 
JST 
SNZ 
JMP 
LDA 
ADD 
STA 
JST 
JMP 
JST 

sze 

JMP 
LDA 
STA 
SUB 
SZE 
JMP 
JMP 
LDA 
SUB 
JST 
LDA 
SZE 
JMP 
JST 
JMP 



C2T0 
A 
F 
FLOO 

C2D 

DO 

C2T0 

C2T0 

DAOO 

C2B 

TLOO 

C2F 
AF 
A 
CFL 

C2A 

C3 

C2T0 

AF 

DAOO 

ly 

C2D 

TVOO 

C2D 



TO » 

F a A 
FETCH LINK 



TO a TO ♦ DO 

DEFINt ADDRESS FIELD 

FETCH LINK 

A « AF 



AF ■ CFL# NO 

YES - GROUP EQUIVALENCE 

(A) . TO - AF 

DEFINE AF 



TAG VARIABLE 



♦GROUP EQUIVALENCE* 

THE EQUIV GROUPS ARE PROCESSED NOW, ANY COMMUN 
USAGE IS CHfcCKEU TO SEE THAT THE ORIGIN 



COMMON. 



« ixu f n« I UNU T Uf^C i I G n id 



5350 
5351 
5352 
5353 
5354 
5355 
5356 
5357 
5356 
5359 
5360 
5361 
5362 
5»363 
5364 
5365 
5366 
5367 
5368 
5369 
5370 
5371 
5372 
5373 
5374 
5375 
5376 
5377 
5378 
5379 
5380 
5381 
5382 
5383 
5384 
53 85 
5386 



HONEYWELL 



COMPUTER CONTROL DIVISION 



PROGRAM DOCUMENTATION 



• C210-0U1-6601 (FRTN) 



s5C NO, 180463000 



RtV. D 



PAGt i:>i 



5387 


11434 


00 


ooouo 


C3T0 


PZE 





5388 


11435 


00 


00000 


C3T1 


PZE 





5389 


11436 


00 


OOOUO 


C3T2 


PZE 





5390 


11437 


00 


00000 


C3T3 


PZE 





5391 


11440 


Q 00 


00000 


C3T4 


PZE 





5392 


11441 


00 


oouoo 


C3T5 


PZE 





5393 




011434 


T0C3 


EQU 


C3T0 


5394 




011435 


T1C3 


EQU 


C3T1 


5395 




011436 


T2C3 


EOU 


C3T2 


5396 




011437 


T3C3 


EQU 


C3T3 


5397 




011440 


T4C3 


EQU 


C3T4 


5398 


11442 


02 


00646 


C3 


LDA 


EO 


5399 


11443 


04 


00660 




STA 


E8AR 


5400 


11444 


02 


00113 


. 


UDA 


LO 


5401 


11445 


04 


03644 




STA 


E 


5402 


11446 


02 


00756 




LOA 


CRET 


5403 


11447 


04 


00607 




STA 


TC 


5404 


11450 


02 


00644 


C3B 


UDA 


E 


5405 


11451 


04 


00645 




STA 


EP 


5406 


11452 


140040 




CRA 




5407 


11453 


04 


00664 




STA 


F 


5403 


11454 


02 


00720 




LDA 


K102 


5409 


11455 


04 


11440 




STA 


C3T4 


5410 


11456 


10 


01256 




JST 


CHOO 


5411 


11457 


02 


00702 




LDA 


K17 


5412 


11460 


10 


02547 




JST 


T$00 


5413 


11461 


10 


10761 


C3D 


JST 


ILOO 


5414 


11462 


10 


11751 




JST 


SAF 


5415 


11463 


02 


00604 




LDA 


SI 


5416 


11464 


07 


00630 




sue 


AF 


5417 


11465 


04 


11435 




STA 


C3T1 


5418 


11466 


02 


00040 




LDA 


A 


5419 


11467 


04 


11436 




STA 


C3T2 


5420 


11470 


02 


00664 


C3F 


LDA 


F 


5421 


11471 


101040 




SNZ 




5422 


11472 


01 


11607 




JMP 


C3P 


5423 


11473 


02 


00664 


C3G 


LDA 


F 



EBAR = E(0) » EiMD OF EQUIVALENCE TABLE 
E«L(0) s START OF EUUIVALENCfc TABLE 

E-PWIME « E 

I a 

T4 s STR-ABS 

INPUT CHARACTER 

(TEST 

INPUT LIST ELEMENT 

Tl » Sl-AF 

T2 a A 

IF 1»0, 60 TO C3P 

ELSE, 



5387 
5388 
5389 
5990 
5391 
5392 
5393 
5394 
5395 
5396 
5397 
5398 
5399 
5400 
5401 
5402 
5403 
5404 
5405 
5406 
5407 
5408 
5409 
5410 
5411 
5412 
5413 
5414 
5415 
5416 
5417 
5418 
5419 
5420 
5421 
542? 
5423 



HONEYWELL COMPUTER CONTROL DIVISION 



PROGRAM DOCUMENTATION 



* C210-001-6601 (FRTN) 



«5C NO,18046iOUO 



Hbv . D 



HAtit 1^2 



5424 11474 

5425 11475 

5426 11476 

5427 11477 

5428 11500 

5429 11501 

5430 11502 

5431 11503 

5432 11504 

5433 11505 

5434 11506 

5435 11507 

5436 11510 

5437 11511 

5438 11512 

5439 11513 

5440 11514 

5441 11515 

5442 11516 

5443 11517 

5444 11520 

5445 11521 

5446 11522 

5447 11523 

5448 11524 

5449 11525 

5450 11526 

5451 11527 

5452 11530 

5453 11531 

5454 11532 

5455 11533 

5456 11534 
5457 

5458 11535 

5459 11536 

5460 11537 



07 00040 

101040 

01 11556 

02 00631 C3H 

07 00722 

101040 

01 11563 













SUB 
SNZ 
JMP 
IDA 
SUB 
SNZ 

jhp 

02 11435 C3H2 UDA 



06 00630 
04 11434 
02 11440 

07 00722 
100040 

01 11521 

02 11437 

07 11434 

04 11434 

101400 

01 11521 

10 03116 

144703 

02 11440 C3K 

000201 

02 11434 

0415 76 

0404 76 

10 04214 

10 03770 

10 11751 

02 00040 

07 11436 

100040 

01 11473 

10 10624 

02 00607 C3M 

07 00752 



ADD 

STA 

IDA 

SUB 

SZE 

JMP 

IDA 

SUB 

STA 

SMI 

JMP 

JST 

BCI 

UDA 

lAB 

IDA 

ALS 

LGR 

JST 

JST 

JST 

IDA 

SUB 

SZE 

JMP 

JST 
LDA 

SUB 



C3N 

AT 

Ki04 

C30 

T1C3 

AF 

T0C3 

T4C3 

K104 

C3K 
T3C3 
T0C3 
T0C3 

C3K 
EROO 
lilC 
C3T4 

T0C3 

2 

2 

AFOO 

FLOO 

SAF 

A 

C3T2 

C36 

ELOO 

TC 

K134 



IF A « I, GO TO C3N 

ELbfe, 

IF AT = COM, GO TO C30 



T{D) s AF ♦T (1) 

IF T(4) 9 0, GO TO C3K 



ELSE, 

T(0) = T(3)-T(0) 



IF TCOXO, 

IMPOSSIBLE COMMON EQUI VALENC I NG 
AT (A) s COM 



DEFINE AF 
FETCH LINK 



If A .,><£, r (2), 
GO TO C36 (5) 

EXCHANGE CLCA) sa CL ( I } 

EXCHANGE LINKS <CL(A) WITH CL(f) ) 



t>424 
5425 
5426 
5427 
5428 
5429 
5430 
5431 
5432 
5433 
5434 

5436 
5437 
5438 
5439 

5440 

5441 

5442 

5443 

5444 

5445 

5446 

5447 

5446 

5449 

5450 

5451 

5452 

5453 

5454 

5455 

5456 

5457 

5458 

5459 

5460 



HONEYWELL 



COMPUTER CONTROL DIVISION 



PROGRAM DOCUMENTATION 



C210-001-6601 (FRTN) 



3C; NO»1804630QU 



RfcV. D 



PAQc l!?3 



5461 


11540 


101040 


SNZ 




5462 


11541 


01 


11461 


JMP 


C3U 


5463 


11542 


10 


02555 


JST 


IPOO 


5464 


11543 


02 


00607 


LDA 


TC 


5465 


11544 


07 


00752 


SUB 


K134 


5466 


11545 


101040 


SNZ 




5467 


11546 


01 


11450 


JMP 


C3B 


5468 


11547 


02 


00607 


LDA 


TC 


5469 


11550 


07 


00756 


SUB 


CRET 


5470 


11551 


101040 


SNZ 




5471 


11552 


01 


11450 


JMP 


C3B 


5472 


11553 


10 


03116 


JST 


EROO 


5473 


11554 


142703 


BCI 


IfEC 


5474 


11555 


01 


11450 


JMP 


C3B 


5475 


11556 


02 


11435 C3N 


LDA 


T1C3 


5476 


11557 


101040 


SNZ 




5477 


11560 


01 


11536 


JMP 


C3M 


5478 


11561 


10 


03116 C3N5 


JST 


EROO 


5479 


11562 


144705 


BCI 


1»IE 


5480 


11563 


02 


00604 C30 


LDA 


SI 


5481 


11564 


06 


00630 


ADD 


AF 


5482 


11565 


04 


11437 


STA 


T3C3 


5483 


11566 


02 


00722 


LDA 


Ki04 


5484 


11567 


11 


11440 


CAS 


T4C3 


5485 


11570 


01 


11572 


JMP 


#♦2 


5486 


11571 


01 


11561 


JMP 


C3N5 


5487 


11572 


04 


11440 


STA 


T4C3 


5488 


11573 


02 


00664 


LDA 


F 


5489 


11574 


11 


00040 


CAS 


A 


5490 


11575 


01 


11577 


JMP 


• ♦2 


5491 


11576 


01 


11536 


JMP 


C3M 


5492 


11577 


04 


00040 


STA 


A 


5493 


11600 


13 


11436 


IMA 


C3T2 


5494 


11601 


04 


0U664 


STA 


F 


5495 


11602 


140040 


CRA 




5496 


11603 


04 


11435 


STA 


C3T1 


5497 


11604 


10 


03656 


JST 


FAOO 



ELSE, 

)-lNPUT OPERATOR 

IF TC » , OR C/R 
GO TO C3B (1) 



ELSE, 

EQUIVALENCE GROUP NOT FOLLOWED BY , OR CK 

IF Tl z 0, GO TO C3M 



ERROR IMPOSSIBLE GROUP 
IMPOSSIBLE EQUIVALENCE GROUPING 



■ 4 



IF A 1 F, GO TO C3M (8) 

ELSE, 
A « I 



Tl « 

FETCH ASSIGNS 



5461 
5462 
5463 
5464 
5465 
5466 
5467 
5468 
5469 
5470 
5471 
5472 
$473 
5474 
5475 
5476 
5477 

5478 
5479 

5480 
5481 
5482 
5483 
5484 
5485 
5486 
5487 
5488 
5489 
5490 
5491 
5492 
5493 
5494 
5495 
5496 
5497 



HONEYWELL 



COMPUTER CONTROL DIVISION 



PROGRAM DOCUMENTATION 



• C210-001-6601 (FRTN) 



3C NO, 180463000 



HfcV. b 



PAGE 154 



5498 

5499 

5500 

5501 

5502 

5503 

5504 

5505 

5506 

5507 

5508 

5509 

5510 

5511 

5512 

5513 

5514 

5515 

5516 

5517 

5518 

5519 

5520 

5521 

5522 

5523 

5524 

5525 

5526 

5527 

5528 

5529 

5530 

5531 

5532 

5533 

5554 



11605 
11606 
11607 
11610 
11611 



11612 

11613 

11614 

11615 

11616 

11617 

116^0 

11621 

11622 

11623 

11624 

11625 

11626 

11627 

11630 

11631 

11632 

11633 

11634 

11635 

11636 

11637 

11640 

11641 

ii64ii 



10 11751 JST 

01 11303 JMP 

02 00040 C3P LDA 

Q 04 00664 STA 

01 11477 JMP 



00 OOOUO 

00 ooodo 

04 00040 
02 00040 
06 00723 
04 00040 
04 00664 
11 00054 
01 05173 
101000 
10 03656 
02 00631 
07 00720 
100040 
01 11615 
02 00655 
07 00720 
100400 
01 11615 
02 00573 
100040 
01 11615 
140040 
04 11612 
U 07 00730 



C4T0 PZE 

C4T1 PZE 

C4B STA 

C4C LDA 

ADD 

STA 

STA 

CAS 

JMP 

NOP 

JST 

LDA 

SUB 

SZE 

JMP 

LDA 

SUB 

SPL 

JMP 

LDA 

SZE 

JMP 

C4E CRA 

STA 

SUB 



SAF 

C3H2 

A 

r 

C3H 



GO TO C3H2 



•ASSIGN SPECIFICATIONS* 



NON-COMMON NON-EQUIV ITEMS ARE PROCESSED AFTfcK 
COMMON BLOCKS ARE OUTPUT (WITH SIZE), ' 







A 

A 

K105 

A 

F 

ABAR 

NP35 

FAOO 

AT 

K102 

C4C 

lU 

K102 

C4C 

NT 

C4C 

C4T0 
Kill 



A s 

I a A s A+5 

RETUR^ TO FIRST NON-SPEC CHECK (POINT l) 

ELSE, FETCH ASSIGN 

IF AT a STR-ABS 
IU«VAR. OR ARR, AND 
NT » 
GO TO C4E 
ELSE, GO TO C4C 



TO 3 D, Ti a-MAX 



5498 

5499 

5500 

5501 

55Q2 

5503 

5504 

5505 

5506 

5507 

5508 

5509 

5510 

5511 

5512 

6513 

5514 

5515 

5516 

5517 

5518 

5519 

5520 

5521 

5522 

5523 

5524 

5525 

5526 

5527 

5528 

5529 

5530 

5531 

5532 

5534 



HONEYWELL 
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• C210-001-6601 (FRTN) 



3C NO,18U463000 



RfcV. D 



PAuE 155 



5535 


il643 


04 11613 


STA 


C4T1 


5536 


11644 


10 04005 


JST 


KTdO 


5537 


11645 


10 11751 C4F 


JST 


SAF 


5538 


11646 


11 11612 


CAS 


C4T0 


5539 


11647 


04 11612 


STA 


C4T0 


5540 


11650 


101000 


NOP 




5541 


11651 


02 00633 


LDA 


DO 


5542 


11652 


07 00630 


SUB 


AF 


5543 


11653 


11 11613 


CAS 


C4T1 


55 44 


11654 


04 11613 


STA 


C4tl 


5545 


11655 


101000 


NOP 




5546 


11656 


10 03770 


JST 


FLOO 


5547 


11657 


100040 


SZE 




5548 


11660 


01 11645 


JMP 


C4F 


5549 


11661 


02 00060 


LDA 


RPL 


5550 


11662 


06 11612 


ADD 


C4T0 


5551 


11663 


04 11612 


STA 


C4T0 


5552 


11664 


06 11613 


ADD 


C4T1 


5553 


11665 


04 00060 


STA 


RPL 


5554 


11666 


10 11751 C4I 


JST 


SAF 


5555 


11667 


02 00717 


LDA 


KlOl 


5556 


11670 


000201 


lAB 




5557 


11671 


02 11612 


LDA 


C4T0 


5558 


11672 


07 00630 


SUB 


AF 


5559 


11673 


10 04214 


JST 


AFOO 


5560 


11674 


10 03770 


JST 


FLOO 


5561 


11675 


100040 


SZE 




5562 


11676 


01 11666 


JMP 


C4I 


5563 


11677 


01 11615 


JMP 


C4C 


5564 




# 






5565 


11700 


02 00667 C41.2 


LDA 


FLTl 


5566 


11701 


04 11613 


STA 


C4T1 


5567 


11702 


02 00040 C4L3 


LDA 


A 


5568 


11703 


04 00041 


STA 


I 


5569 


11704 


10 03770 


JST 


FLOO 


5570 


11705 


101040 


SNZ 




5571 


11706 


01 11733 


JMP 


C4M 



SET D(0) s KiO. OF WORDS PtR ITEM 



(A) c 0(0) - AF 

FETCH LINK ( (A)»A • F ) 

GO TO C4F 

RPL » RPL ♦ TO ♦ Tl 

TO « RPL-Tl 



(B) = REL 
(A) s TO-AF 

DEFIi^*fc AFT 

FETCH LINK 

"IF (A) NOT ZERO, 

NOT END OF EQUIVALENCE GROUP 

CHECK NEXT ITEM IN ASSIGNMENT [ABLE 

5 LINK LOCATION TO COMMON BLOCK NAME 



SAVt A FOR LATER MODIFICATION 
FETCH LINK 

END OF CQMMOM GROUP 



5535 
5536 
5537 
5538 
553V 

5540 
5541 
5542 
5543 
5544 
5545 
5546 
5547 
5548 
5549 
5550 
5551 
5552 
5553 
5554 
5555 
5556 
5557 
5558 
5559 
5560 
5561 
5562 
5563 
5564 
5565 
5566 
5567 
5568 
5569 
5570 
5571 



HONEYWELL 



COMPUTER CONTROL DIVISION 



PROGRAM DOCUMENTATION 



» C210-001-6601 (FRTN) 



JC NO,ie046J000 



HtV. D 



PAGt liJ6 



5572 

5573 

5574 

5575 

5576 

5577 

5578 

5579 

5580 

5581 

5582 

5583 

5584 

5585 

5586 

5587 

5588 

5589 

5590 

5591 

5592 

5593 

5594 

5595 

5596 

5597 

5598 

5599 

5600 

5601 

5602 

5603 

5604 

5605 

5606 



11707 

11710 

11711 
11712 
11713 
11714 

11715 
11716 
11717 
11720 
11721 
11722 
11723 
11724 
11725 
11726 
11727 
11730 
11731 
11732 
11733 
11734 
11735 
11736 

11737 
11740 
11741 
11742 
11743 
11744 
11745 



10 02676 

1 02 15400 

03 00736 

06 11613 

1 04 15400 
01 11702 

02 00056 
04 00664 
04 00040 
140040 
04 11612 
10 037^0 
101040 
01 11700 
02 00633 
06 00630 
11 11612 
04 11612 
101000 
01 11722 
02 00630 
04 00664 
02 11612 
10 04041 



JST STXI 
LDA DP,1 



02 00630 

03 00730 

06 00740 
10 14312 
02 00664 

07 00056 



ANA 
ADD 
STA 
JHP 



C4 



101040 



n 4 1 4 &4 ii 



5608 11747 02 00664 



LDA 
STA 

C4L6 STA 
CRA 
STA 

C4L JST 
SNZ 
JMP 
LDA 
ADD 
CAS 
STA 
NOP 
JMP 

C4M LDA 
STA 
LDA 
JST 

•....OUTPU 
LDA 
ANA 
ADD 
JST 
LDA 
SUB 
SNZ 
sirtr 
LDA 



K119 
C4T1 
DP»1 
C4L3 

CFL 

A 

C4T0 
FLOO 

C4L2 

00 

AF 

C4T0 

C4T0 

C4L 
AF 
F 

C4T0 
OAOO 
T COMMON BLOCK 
AF 

Kill 

K122 

ONOO 

F 

CFL 

C4B 



SET INDEX TO POINT TO CUHRtNT ITEM IN 

COMMON GROUP. 
SET CL FIELD TO POINT AT COMMON BLOCK 

NAME. 
(«'1770Q0) 
(« LINK LOCATION OF COMMON BLOCK NAME) 

PROCESS NEXT ITEM IN COMMON BLOCK 

LOC, OF FIRST (BLANK) COMMON BLOCK 



FETCH LINK 

NO MORE ITEMS IN COMMON BLOCK 
ELSE, IF TO .LT. DO*AF, 

TO « DO ♦ AF 



GO TO C4L 

I«AF 
(A) « TO 

DEFINE AF 
NAME AND SIZE TO LOADER 

LENGTH OF COMMON BLOCK 

■'37777 

»»400d0 (S/C CODE a 1) 

OUTPUT NAME BLOCK TO LOADER 

IF 1 « CFL 



5572 

5573 

5574 

5575 

5576 

5577 

5978 

5579 

5580 

5581 

5582 

5583 

5984 

5585 

5586 

5587 

5588 

5589 

5590 

5591 

5592 

5593 

5594 

5595 

5996 

5S97 

5598 

5599 

5600 

5601 

5602 

5603 

5604 

5605 

5606 

5607 

5608 



HONEYWEL L COMPUTER CONTROL DIVISION PROGRAM DOCUMENTATION 

» C210-001-6601 (FKTN) 3C MO,1804630Q0 HE\/. D PAuE 157 

5609 11750 01 11717 JMP C4L6 5609 

5610 • 561Q 

5611 11751 000000 SAF DAC ♦» 5611 

5612 11752 02 00630 LDA AF 5612 

5613 11753 0414 76 LGL 2 5613 

5614 11754 0405 76 ARS 2 5614 

5615 11755 04 00630 STA AF 56l5 

5616 11756 -0 01 11751 JMP» SAF 5616 

5617 • 5617 

5618 * «••«••#••««•«•••••*•»•*••• 5618 

5619 • •DATA STATEMENT PROCESSOR* 5619 

5620 • ###»♦#♦•#♦##••♦••#*###•••♦ 5620 

5621 • PROCESS VARIABLE LIST .THEN OUTPUT LITERAL ITEMS 5621 

5622 * TO APPROPRIATE LOCATIONS, MODES MUST AGREE 5622 

5623 11757 00 00000 T0W4 PZE 5623 

5624 11760 00 00000 T1W4 PZE 5624 

5625 11761 00 00000 G PZE LOWEST INDEX POINT IN LIST 5625 

5626 11762 02 00113 W4 LDA LO " 5626 

5627 11763 04 00041 STA I IsEND OF DATA POOL 5627 

5628 11764 10 10761 W4B JST ILOO INPUT LIST ELEMENT 5628 

5629 11765 02 00631 LDA AT D (0) ■ »WDS/ITEM 5629 

5630 11766 07 00720 SUB K102 563U 

5631 11767 101040 SNZ IF AT « 'STR-ABS' 5631 

5632 11770 01 1227Q jMP W4T GO TO 5632 

5633 11771 02 00041 LDA I ' 5633 

5634 11772 04 00000 STA 5634 

5635 11773 02 00604 LDA SI SI » DEFLECTION IF AN ARRAY 5635 

5636 11774 06 00630 ADD AF 5636 

5637 11775 1 04 15400 STA DP,1 DP(&) « AF ♦ SI 5637 

5638 11776 02 00040 rt4C LDA A 5638 

5639 11777 1 04 15377 STA DP-1,1 OP <E-1) « A 5639 

5640 12000 02 00041 LDA I 5640 

5641 12001 07 00720 SUB K102 5641 

5642 12002 04 00041 STA I 5642 

5643 12003 04 11761 STA G 5643 

5644 12004 02 00607 LDA TC IF TC ■ , 5644 

5645 12005 07 00752 SUB K134 5645 



HONEYWELL 



COMPUTER CONTROL DIVISION 



PROGRAM DOCUMENTATION 



• C210-001-6601 (FRTN) 



3C riO,ie046'JD00 



HbV. U 



PAUt 1138 



5646 


12006 


101040 


SNZ 




5647 


12007 


01 11764 


JMP 


W4B 


5648 


12Q10 


02 00722 


LOA 


K104 


5649 


12011 


10 02547 


JST 


TSOO 


5650 


12012 


02 00060 


LDA 


RPL 


5651 


12013 


04 11760 


STA 


T1W4 


5652 


12014 


02 00113 


LDA 


LO 


5653 


12015 


04 00041 


STA 


I 


5654 


12016 


140040 W4E 


CRA 




5655 


12017 


04 00657 


STA 


KPHM 


5656 


12020 


04 00656 


STA 


KBAR 


5657 


12021 


10 01521 H4F 


JST 


DNOO 


5658 


12022 


02 00573 


LDA 


NT 


5659 


12023 


100040 


SZE 




5660 


12024 


01 12035 


JMP 


W4G 


5661 


12025 


02 00607 


LDA 


TC 


5662 


12026 


11 00702 


CAS 


K17 


5663 


12027 


01 12031 


JMP 


• ♦2 


5664 


12030 


01 12033 


JMP 


• ♦3 


5665 


12031 


10 03116 


JST 


EROO 


5666 


12032 


141716 


BCI 


1*CN 


5667 


12033 


04 00050 


STA 


SXF 


5666 


12034 


01 12021 


JMP 


W4F 


5669 


12035 


02 00656 W4Q 


LDA 


KBAR 


5670 


12036 


100040 


SZE 




5671 


12037 


01 12051 


JMP 


W4K 


5672 


12040 


02 006U7 


LDA 


TC 


5673 


12041 


07 00721 


SUB 


K103 


5674 


12042 


100040 


SZE 




5675 


12043 


01 12054 


JMP 


W4L 


5676 


12044 


02 01475 


LDA 


ID 


5677 


12045 


07 00717 


SUB 


KlOl 


5678 


12046 


04 00656 


STA 


KBAR 


5679 


12047 


10 02635 


JST 


ITOO 


5680 


12050 


01 12021 


JMP 


W4F 


Cr 04 


4 on B4 


rt r\ ^ rtA^t--^ i.jti^ 


1 r« A 


• « r^n •> 


>wox 


4,CU Ji. 


u U41 uu ^'J i k«*"t r\ 


LUfl 


rvri-tri 


5682 


12052 


100040 


SZE 





GO TO W4B 

TEST FOR SLASH TERMINATOR 

I« ENU OF DATA POOL 

K' a KBAR c 

INPUT, DNA 

IF NT » 
VARIABLE OR ARRAY 
LAST CHARACTER 
■♦250 ( «< ) 

START or COMPLEX CONSTANT 

ERROR 

NON^CON DATA 

SET SXF TO NON-ZERO 

FINISH INPUT OF COMPLEX CONSTANT 

MULTIPLY COUNT 

GO TO W4K 
IF TC NOT » 



KBAR 8 ID-1 
INTEGER TEST 

IF K im0 7 ZfcKU 



5646 
5647 
5648 
5649 
5650 
5651 
5652 
5653 
5654 
5655 
5656 
5657 
5658 
5659 
5660 
5661 
5662 
5663 
5664 
5665 
5666 
5667 
5668 
5669 
5670 
5671 
5672 
5673 
5674 
5675 
5676 
5677 
5678 
5679 
5680 
5681 
5682 



HONEYWELL 



COMPUTER CONTROL DIVISION 



PROGRAM DOCUMENTATION 



» C210-001-6601 (FRTN) 



6C NO. 180463000 



Hcv, n 



PAGb li>9 



5683 


12053 


01 


12061 


JMP 


W4M 


5684 


12054 


02 


00656 N4L 


LDA 


KBAR 


5685 


12055 


0415 


77 


ALS 


1 


5686 


12056 


140407 


TCA 




5667 


12057 


06 


00041 


ADO 


I 


5688 


12060 


04 


00657 


STA 


KPRM 


5689 


12061 


10 


02676 W4M 


JST 


STXI 


5690 


12062 


1 02 


15377 


LDA 


DP-1,1 


5691 


12063 


04 


00040 


STA 


A 


5692 


12064 


02 


00653 


LDA 


IM 


5693 


12065 


04 


1X757 


STA 


T0W4 


5694 


12066 


10 


03656 


JST 


FAOO 


5695 


12067 


02 


00061 


LDA 


BDF 


5696 


12070 


100040 


S2E 




5697 


12071 


01 


12217 


JMP 


M4S 


5698 


12072 


10 


10650 


JST 


NMOO 


5699 


12073 


10 


02676 W40 


JST 


STXI 


5700 


12074 


1 02 


15400 


LDA 


DP,1 


5701 


12075 


04 


00060 


STA 


RPL 


5702 


12076 


10 


14523 


JST 


FSOO 


5703 


12077 


140040 


CRA 




5704 


12100 


04 


00640 


STA 


DF 


5705 


12101 


02 


01520 


LDA 


HOLF 


5706 


12102 


100040 


SZE 




5707 


12103 


01 


12122 


JMP 


WHOW 


5708 


12104 


02 


00^33 


LDA 


DO 


5709 


12105 


04 


00000 


STA 





5710 


12106 


1 01 


12106 


JMP 


• ,1 


5711 


12107 


01 


12161 


JMP 


W405 


5712 


12110 


01 


12151 


JMP 


W403 


5713 


12111 


01 


12155 


JMP 


W404 


5714 


12112 


02 


01477 


LDA 


T|D*2 


5715 


12113 


10 


14127 


JST 


OAOO 


5716 


12114 


02 


01476 


LDA 


TI0*1 


5717 


12115 


10 


14127 


JST 


OAOO 


5718 


12116 


02 


03641 


LDA 


TIDB+2 


5719 


12117 


10 


14127 


JST 


OAOO 



GO TO W4M 

K • « E-3# KBAR 

SET INDEX s I 

A = UP (E-1) 

TO 3 IM 

IF BDF NOT ZERO 

GO TO W4S 
NON-COMMON TEST 
SET INDEX r I 

RPL « AF 
FLUSH 

DF s U 

IS IT HOLLERITH DATA 

NO 

YES, QO TO OUTPUT IT 

SWITCH ON NUMBER OF WORDS TO OUTPUT 



5683 
5684 
5685 
5686 
5687 

5688 
5689 

5690 
5691 
5692 
5693 
5694 
5695 
5696 
5697 
5698 
5699 
5700 
5701 
5702 
5703 
5704 
5705 
5706 
5707 
5708 
5709 
5710 
5711 
5712 
5713 
5714 
5715 
5716 
5717 
5710 
5719 



HONEYWELL 



TER CONTRGL DIVISION 



PROGRAM DOCUMENTATION 



» C210-001-6601 (FHTN) 



6C NO. 180463000 



KfcV, IJ 



HAGt 160 



5720 12120 

5721 12121 

5722 12122 

5723 12123 

5724 12124 

5725 12125 

5726 12126 

5727 12127 

5728 12130 

5729 12131 

5730 12132 

5731 12133 

5732 12134 

5733 12135 

5734 12136 

5735 12137 

5736 12140 
5737 

5736 12141 

5739 12142 

5740 12143 

5741 12144 

5742 12145 

5743 12146 

5744 12147 

5745 12150 

5746 12151 

5747 12152 

5748 12153 

5749 12154 

5750 12155 

5751 12156 

5752 12157 

5753 12160 

5754 12161 
57 55 12162 
5756 12163 



02 


03640 




LDA 


TIDB*1 


01 


12162 




JMP 


W406 


02 


00633 


WHOW 


LDA 


DO 


0415 


77 




ALS 


1 


04 


00575 




STA 


NTID 


07 


01520 




SUB 


HOLF 


1004Q0 




SPU 




01 


1217U 




JMP 


WERR 


02 


01475 




LDA 


ID 


10 


12141 




JST 


WSNG 


02 


01476 




LDA 


ib*i 


10 


12141 




JST 


WSNG 


02 


01477 




LDA 


ID*2 


10 


12141 




JST 


WSNG 


02 


01500 




LDA 


ID*3 


10 


14127 




JST 


OAOO 


01 


12172 


m 


JMP 


W420 


00 


OOQOO 


W 

WSNG 


PZE 





10 


14127 




JST 


OAOO 


02 


00575 




LDA 


NTID 


07 


00720 




SUB 


K102 


04 


00575 




STA 


NtiD 


101040 




SNZ 




01 


12172 




JMP 


H420 


-0 01 


12141 




JMP# 


WSNG 


02 


01477 


W403 


LDA 


TID*2 


10 


14127 




JST 


OAOO 


02 


01476 




LDA 


TID*1 


01 


12162 




JMP 


W406 


02 


01477 


W404 


LDA 


TID*2 


10 


14127 




JST 


OAOO 


02 


01476 




LDA 


TID*1 


10 


14127 




JST 


OAOO 


02 


01475 


W405 


LDA 


TID 


10 


1412 7 


w4o6 


JST 


OAOO 


02 


11757 




LDA 


TUW4 



(A)»NO. OF WORDS PER ITEM 
(A)shiO. OF CHARS, PER ITEM 

>^Tiu«NO. OF Chars, to be output 



FIRST WORD 

OUTPUT IT 

2N0 WORD 

OUTPUT IT 

3RD WORD 

OUTPUT IT 

4TH WORD 

OUTPUT IT 

TO CHECK NEXT DATA 



OUTPUT (A) 

NO. OF CHARS, REMAINED TO Bb OUTPUT 

NTIU«NTID-2 

ALL FINISHED, CHECK NEXT ITEM 
SOME HOLLERITH CHARS, REMAINED 
REAL OUTPUT 



UOUBLfc PRECISION OUTPUT 



INiThUhW OUTPUT 



5720 
5721 
5722 
5723 
5724 
5725 
5726 
5727 
5728 
5729 
5730 
5731 
5732 
5733 
5734 
5735 
5736 
5737 
5738 
5739 
5740 
5741 
5742 
5743 
5744 
5745 
5746 
5747 
5748 
57 49 
5750 
5751 
5752 
5753 
5754 
57 55 
5>756 



HONEYWELL 



COMPUTER CONTROL DIVISION 



PROGRAM DOCUMENTATION 



• C210-001-6601 (FRTN) 



3C N0.1804630UO 



RfcV. D 



PAGt i61 



5757 12X64 


05 00653 


ERA 


IM 


5758 12165 


03 00723 


ANA 


K105 


5759 12166 


10104Q 


SNZ 




5760 12167 


01 12172 


JMP 


• ♦3 


5761 




• 




5762 12170 


10 03116 


WBRR JST 


EROO 


5763 12171 


142315 


BCI 


If DM 


5764 12172 


02 00U41 


W420 LDA 


I 


5765 12173 


07 00720 


SUB 


K102 


5766 12174 


04 00041 


STA 


I 


5767 12175 


11 00657 


CAS 


KPRM 


5768 12176 


101000 


NOP 




5769 12177 


01 12061 


JMP 


W4M 


5770 12200 


07 11761 


SUB 


G 


5771 12201 


100040 


SZE 




5772 12202 


01 12214 


JMP 


W4P 


5773 12203 


02 00722 


LDA 


Ki04 


5774 12204 


10 02547 


JST 


tSoo 


5775 12205 


02 11760 


IDA 


TiW4 


5776 12206 


04 00060 


STA 


RPL 


5777 12207 


10 01256 


JST 


CHOO 


5778 12210 


07 00672 


SUB 


K5 


5779 12211 


100040 


SZE 




5780 12212 


01 04266 


JMP 


Al 


5781 12213 


01 11762 


JMP 


W4 


5782 12214 


02 00752 


W4P LDA 


Ki34 


5783 12215 


10 02547 


JST 


TSOO 


5784 12216 


01 12016 


JMP 


W4E 


5785 12217 


10 14523 


W4S JST 


FSOO 


5786 12220 


02 00630 


LDA 


AF 


5787 12221 


0400 62 


LRL 


14 


5788 12222 


02 00724 


LDA 


K106 


5789 12223 


0414 72 


LGL 


6 


5790 12224 


0410 72 


LLL 


6 


5791 12225 


04 14632 


STA 


OCI 


5792 12226 


000201 


lAB 




5793 12227 


03 00733 


ANA 


K116 



TO BE OUTPUT, RETURN 

DATA AND DATA NAME MODE DO NOT AGREE 

I » 1-2 



MORE TO DO 

TEST FOR COMPLETE 



INPUT NEXT CHARACTER 
■♦254 (,) 
SKIP IF CHAR a COMMA 
CHECK FOR (CR) 
PROCESS NEXT DATA GROUP 



FLUSH BUFFER IF NECESSARY 
POSITION WITHIN COMMON BLOCK 

FORMAT BCD OUTPUT 



5757 
5758 
5739 
5760 
5761 

5762 
5763 
5764 
5765 
5766 
5767 
5766 
5769 
5770 
5771 
5772 
5773 
5774 
5775 
5776 
5777 
5778 
5779 

5780 
5711 
5782 
5783 
5784 
5785 
5786 
5787 
5788 
5789 
5790 
5791 
5792 
5/93 



HONEYWELL 



COMPUTER CONTROL DIVISION 



PROGRAM DOCUMENTATION 



• C210-001-6601 (FRTN) 



iC NO. 180463000 



KfcV 



PAbt 162 



5794 


12230 


04 


14633 


STA 


0CI*1 


5795 


12231 


10 


03770 


JST 


FLOO 


5796 


12232 


1 02 


15404 


LDA 


DP*4,1 


5797 


12233 


140500 


SSH 




5798 


12234 


0416 


77 


ALR 


1 


5799 


12235 


140500 


SSH 




5800 


12236 


0406 


77 


ARR 


1 


5801 


12237 


0400 


70 


LRL 


8 


5802 


12240 


05 


14633 


ERA 


0CI*1 


5803 


12241 


04 


14633 


STA 


0CI*1 


5804 


12242 


1 02 


15403 


LDA 


DP*3,1 


5805 


12243 


000201 


lAB 




5806 


12244 


1 02 


15404 


LDA 


DP*4,1 


5807 


12245 


0410 


70 


LLL 


8 


5808 


12246 


04 


14634 


STA 


0CI*2 


5809 


12247 


1 02 


15402 


LDA 


DP*2,1 


5810 


12250 


000201 


lAB 




5811 


12251 


1 02 


15403 


LDA 


DP*3,1 


5812 


12252 


0410 


70 


LLL 


8 


5813 


12253 


04 


14635 


STA 


0CI*3 


5814 


12254 


1 02 


15402 


LDA 


DP*2»1 


5815 


12255 


0414 


76 


LGL 


2 


5816 


12256 


06 


00721 


ADD 


K103 


5817 


12257 


0414 


72 


LGL 


6 


5818 


12260 


04 


14636 


STA 


0CI*4 


5819 


12261 


02 


00746 


LDA 


K128 


5820 


12262 


04 


00602 


STA 


OCNT 


5821 


12263 


10 


02676 


JST 


STXI 


5822 


12264 


1 02 


15377 


LDA 


DP-1,1 


5823 


12265 


04 


00040 


STA 


A 


5824 


12266 


10 


03656 


JST 


FAUO 


5825 


12267 


01 


12073 


JMP 


W40 


5826 


12270 


02 


00717 W4T 


LDA 


KlOl 


5827 


12271 


000201 


lAB 




5828 


12272 


02 


00060 


LDA 


RPL 


ji^ M 


^ <»» «« •• •• 


M ^ f^ 


/\ A *%* A 


1 *• -r 


* rn n 


OQdV 


X^CfO 


U lU 


g"»cA t 


<JO 1 


« I" w u 


5830 


12274 


02 


00041 


LDA 


I 



FETCH LINK 



I POINTS TO Data table 

SET A TO VARIABLE 



si (sREL) 

nfc;tri\jt AFT (AT^RELi AFsRPL) 

set" POINTER Ii\i DATA POOL 



5/94 

5795 

5796 

5797 

5798 

5799 

5800 

5801 

5802 

5803 

5804 

5805 

5806 

5807 

5808 

5809 

5810 

5811 

5812 

5813 

5814 

5815 

5816 

5817 

5818 

5819 

5820 

5821 

5822 

5823 

5824 

5825 

5826 

5827 

5828 

5829 

583Q 
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583i 

5632 

5833 

5834 

5835 

5836 

5837 

5838 

5839 

5840 

5841 

5842 

5843 

5844 

5845 

5846 

5847 

5848 

5849 

5850 

5851 

5852 

5853 

5854 

5855 

5856 

5857 

5858 

5859 

5860 

5861 

5862 

5863 

5864 

5865 

5666 

5867 



12275 
12276 
12277 

12300 
12301 
12302 



12303 
12304 
12305 
12306 
12307 
12310 
12311 
12312 



12313 
12314 
12315 
12316 
12317 
12320 



04 00000 
02 00060 
04 15400 
06 00633 
04 00060 
01 11776 



02 00072 R3 

100040 

01 12310 

10 03li6 

141314 

04 00061 

10 01256 

01 04266 



STA 
LDA 
STA 
ADD 
STA 
JMP 



LDA 
SZE 
JMP 
JST 
8CI 
STA 
JST 
JMP 



10 02525 TRAC JST 

100040 SZE 

01 12322 JMP 

10 02443 JST 

02 90040 LDA 

04 00065 STA 




RPl 

DP,1 
DO 
RPL 
W4C 



DPCI) » RPL OF VARIABLE 



•BLOCK DATA SUBPROGRAM PROCESSOR* 



SET BLOCK DATA FLAG AND OUTPUT FORCE LOAD CODE 

LSTF «0 IF FIRST STATEMENT IN THE SUBPROGRAM 



#♦3 

EROO 

liBL 

BDF 

CHOO 

Al 



ERROR,,. NOT FIRST STATEMENT 
'BLOCK DATA' NOT FIRST STATEMENT 
SET BLOCK DATA FLAG ON (NON-ZERO) 
INPUT NEXT CHARACTER 
CHECK FOR (CR) AND EXIT 



•TRACE STATEMENT PROCESSOR* 

SETS TRACE TAG ON VARIABLES OR SETS TRACE FLAG 
XNOO EXAMINE NEXT CHARACTER 

SKIP IF CHAR, WAS A DIGIT 
TRAD JUMP IF CHAR. NAS A LETTER 

ISOO INPUT STATEMENT NO, 

A STATEMENT NO, POINTER 

TRf^ SET TRACE FLAG ON 



5831 

5832 

583i 

5834 

5835 

5636 

5837 

5836 

5839 

5840 

5841 

5842 

5843 

5844 

5845 

5846 

5847 

5648 

5649 

5850 

5851 

5892 

5853 

5654 

5895 

5696 

5857 

5858 

5859 

5860 

5661 

5662 

5863 

5664 

5665 

5866 

5867 
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5868 

5869 

5870 

5871 

5872 

5873 

5874 

5875 

5876 

5877 

5878 

5879 

5880 

5881 

5882 

5883 

5884 

5865 

5886 

5887 

5888 

5889 

589Q 

5891 

5892 

5893 

5894 

5895 

5896 

5897 

5898 

5899 

5900 

5901 

5902 

5903 

5904 



12321 01 04266 



JMP 



12322 
12323 
12324 
12325 
12326 
12327 



12330 
12331 
12332 
12333 
12334 
12335 



12337 
12340 
12341 
12342 
12343 
12344 
12345 



10 02373 THAD JST 

10 02672 JST 

1 02 15404 LDA 
140024 CHS 
1 04 15404 STA 
01 02567 JMP 



10 12363 
140040 
04 00640 
02 01475 
10 14127 



JST 
CRA 
STA 
LDA 
JST 



12336 oO 01 12330 



OOOOOQ 

10 02432 

02 00573 
101040 

01 12357 

02 01475 

07 00744 



0100 DAC 
JST 
LDA 
SNZ 
JMP 
LOA 
SUB 



Al 

NAQO 
STXA 
DP*4,1 

DP*4,1 
Bl 



TEST FOR (CR) AND EXIT 

INPUT NAME 

SET INDEX TO NAME ENTRY 

TT(A) TRACE TAG 



(,) OR (CR) TEST 

(RETURN TO TRAC If U) ) 



•OUTPUT OBJECT LINK* 



OQOOOO OLOO DAC •• 



CNOO 

DF 
ID 
OAQO 



CALL NAME 

DF » 
(A) » IP 
OUTPUT ♦BS 



JMP* OLOO 



•OUTPUT I/O LtNK* 

GENERATE I/O DRIVER LINKAGE CODE. NAME OF 

CALLED ROUTINE IS CHANGED IF UNIT DESIGNATOR 
IS A CONSTANT. 

• • 

IVOO 

NT 

0I2Q 

ID 

K126 



INPUT 


INT VAR/CON 


IF NT 


s 


UO TU 


OI20 


If iU 


L-K y 


GO TU 


0120 



5868 

5869 

5870 

5871 

5872 

5873 

5874 

5875 

5876 

5877 

5878 

5879 

5680 

5881 

5882 

5863 

5884 

5885 

5886 

5887 

5888 

5889 

5890 

5891 

5892 

5893 

5894 

5895 

5896 

5897 

5698 

5899 

5900 

5901 

5902 

K a ri r 
5VD4 
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5905 

5906 

5907 

5908 

5909 

5910 

5911 

5912 

5913 

5914 

5915 

5916 

5917 

5918 

5919 

5920 

5921 

5922 

5923 

5924 

5925 

5926 

5927 

5928 

5929 

5930 

5931 

5932 

5933 

5934 

5935 

5936 

5937 

5938 

5939 

5940 

5941 



12346 
12347 

12350 
12351 
12352 
12353 
12354 
12355 
12356 
12357 
12360 
12361 
12362 



12363 

12364 
12365 
12366 
12367 
12370 
12371 
12372 
12373 
12374 
12375 
12376 
12377 
12400 
12401 
12402 
12403 



101400 

01 12357 

• 

02 00571 

03 00^33 

06 01475 

06 00715 

04 00571 

10 12363 OHO 
'0 01 12337 

0400 40 0120 

02 13735 

10 12467 

01 12355 

• 
* 



SMI 
JMP 



0120 



rORM F»RN OR FJWN 



IDA 


NAMF*1 




ANA 


K116 




ADD 


ID 




ADO 


K60 


»»260 (SP) 


STA 


NAMF^l 




JST 


CNOO 


CALL NAHE 


JMP# 


0100 


RETURN 


LRL 


32 




LOA 


0MI7 


OUTPUT OA 


JST 


OBOO 


(LOAD A (UNIT NO,)) 


JMP 


OHO 


Fo ro Olio 



000000 
10 14523 
10 14301 
02 12432 
04 14632 
02 00571 
04 14713 

000201 

02 00570 

04 14712 

0400 70 

04 14633 

0410 60 

04 14634 

02 00572 

04 14714 

000201 



CNOO DAC 
JST 
JST 
LOA 
STA 
LOA 
STA 
lAB 
LDA 
STA 
LRL 
STA 

ILL 

STA 
LOA 
STA 
lAB 



♦CALL NAME* 

SET UP NAME AND GENERATE CODE FOR CALLING IT, 

»» 

FLUSH 

SET PRINT BUFFER TO SPACES 

SET UP OCI FOR CALL 



FSOO 

PRSP 

K147 

OCI 

NAMF*1 

PRI49 



NAMF 

PRI+8 

8 

0CI*1 

16 

0CI*2 

NAMF+2 

PRI*10 



OCI ■ NAMF 

ALSO TO PRINT BUFFER 



5905 
5906 
5907 
5908 
5909 

5910 
5911 

5912 

5913 

5914 

5915 

5916 

5917 

5918 

5919 

5920 

5921 

5922 

5923 

5924 

5925 

5926 

5927 

5928 

5929 

5930 
5931 
5932 
5933 
9934 
5935 
5936 
5937 
5938 
5939 
594U 
5941 
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5942 12404 


02 


00571 




LDA 


NAMF*1 




5943 12405 


0410 


70 




ULL 


8 




5944 12406 


04 


14635 




STA 


001*3 




5945 12407 


0410 


60 




LLL 


16 




5946 12410 


04 


14636 




STA 


OCI+4 




5947 12411 


02 


00746 




UDA 


K128 


= •14 


5948 12412 


04 


00602 




STA 


OCNT 


OCNT « 6 


5949 12413 


02 


12433 




LDA 


CN90 




5950 12414 


04 


14707 




STA 


PRI*5 




5951 12415 


02 


12434 




LDA 


CN90*1 




5952 12416 


04 


14710 




STA 


PRI*6 




5953 12417 


02 


00060 




LDA 


RPL 




5954 12420 


10 


14150 




JST 


OR80 




5955 12421 


014702 




DAC 


PR I 




5956 12422 


100010 




SR2 






5957 12423 


01 


12426 




JMP 


#♦3 


INHIBIT SYMBOLIC OUTPUT 


5958 12424 


10 


00000 




CALL 


r4SSYM 


OUTPUT SYMBOLIC LINE, 


5959 12425 


014702 




DAC 


PRl 




5960 12426 


12 


00060 




IRS 


RPL 


RPL s RPL ♦ 1 


5961 12427 


10 


14301 




JST 


PRSP 


SET PRINT BUFFER TO SPACES 


5962 12430 


Q 10 


14523 




JST 


FSOO 


FLUSH 


5963 12431 


•0 01 


12363 




JMP» 


CNOO 


RETURN 


5964 12432 


055000 


K147 


OCT 


55000 




5965 12433 


141701 


CN90 


BCI 


2*CALL 




12434 


146314 










5966 














5967 










•OUTPUT PACK* 




5968 














5969 










OUTPUT THE PACK 


WORD WHfciM IT IS FULL. 


5970 12435 


00 


00000 


PKF 


PZE 





PACK FLAG 


5971 12436 


00 


00000 


TOOK 


PZE 







5972 12437 


000000 


OKOO 


DAC 


• « 




5973 12440 


11 


00756 




CAS 


CRET 


IF (A) » C/R 


5974 12441 


01 


12443 




JMP 


• ♦2 




5975 12442 


01 


1246U 




JMP 


OK30 


an TO OK30 


5976 12443 


12 


12435 




IRS 


PKF 


PKF s PKF ♦ 1 


5977 12444 


01 


12453 




JMP 


OK20 


IF NOi^'lEhO, iiO TO OK20 



5942 
5943 
5944 
5945 
5946 
5947 
5948 
5949 
5950 
5951 
5952 
5993 
5954 
5955 
5956 
5957 
5958 
5959 
5960 
5961 
5962 
5963 
5964 
5965 

5966 
5967 
5968 
5969 
5970 
5971 
5972 

S Q 7 3 

5974 
5975 

ant, 

5977 
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5978 
5979 

5980 

5981 

5982 

5983 

5984 

5985 

5986 

5987 

5988 

5989 

5990 

5991 

5992 

5993 

5994 

5995 

5996 

5997 

5998 

5999 

6000 

6001 

6002 

6003 

6004 

6005 

6006 

6007 

6006 

6009 

6010 

6011 

6012 

6013 

6014 



12445 

12446 

12447 

12450 

12451 

12452 

12453 

12454 

12455 

12456 

12457 

12460 

12461 

12462 

12463 

12464 

12465 



12466 
12467 
12470 
12471 
12472 
12473 
12474 
12475 
12476 
12477 
12500 



06 12436 


OKIO 


ADD 


TOOK 


0400 60 




LRL 


16 


04 00640 




STA 


OF 


000201 




lAB 




10 14127 




JST 


OAOO 


•0 01 12437 




JMP» 


OKOO 


0414 70 


OK20 


LGL 


8 


04 12436 




STA 


TOOK 


02 00741 




CDA 


K123 


04 12435 




STA 


PKF 


01 12437 




JMP« 


OKOO 


02 12435 


OK30 


IDA 


PKF 


101040 




SNZ 




01 12437 




JMP» 


OKOO 


02 00673 




LDA 


K6 


04 12435 




STA 


PKF 


01 12445 




JMP 


OKIO 



00 00000 


TlOB 


PZE 





000000 


OBOO 


OAC 


• • 


04 00647 




STA 


FTOP 


000201 




IA6 




04 12466 




STA 


TlOB 


10 02672 




JST 


STXA 


101040 




SNZ 




01 12535 




JMP 


OBOe 


10 03656 




JST 


FAOO 


02 00067 




LDA 


SOF 


100040 




SZE 





(A) » (A) ♦ TO 



OUTPUT ABS 



PKF « - 1 

RETURN 

IF PKF » 

RETURN 

ELSE U) a SPACE. 

GO TO OKIO 



••••••••••• 

•OUTPUT 0A# 

GENERAL OUTPUT ROUTINE. HAKES CHECKS AGAINST 

THE ASSIGNMENT TABLE ENTRY TO PROCESS DUMMY, 
EXTERNAL, RELATIVE, ABSOLUTE OR STRING^ 
REFERENCES PROPERLY, 



FTOP 



(A) 



ESTABLISH A 
IF A a 
GO TO OB08 
FETCH ASSIGNS 
SPECIAL OUTPUT FLAT 



5978 
5979 

5980 

5981 

5982 

5983 

5984 

5985 

5986 

5987 

5988 

5989 

5990 

5991 

5992 

5993 

5994 

5995 

5996 

5997 

5998 

5999 

6U00 

6001 

6002 

6003 

6004 

6005 

6006 

6007 

6008 

6009 

6010 

6011 

6012 

6013 

6014 
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6015 


12501 


01 12660 


JMP 


OB60 


6016 


12902 


02 00630 


LDA 


AF 


6017 


12503 


04 12466 


STA 


TlOB 


6018 


12504 


02 00631 


LDA 


AT 


6019 


12505 


07 00723 


SUB 


K105 


6020 


12506 


101040 


SNZ 




6021 


12507 


01 12547 


JMP 


0B15 


6022 


12510 


02 00655 


LDA 


lU" 


6023 


12511 


07 00717 


SUB 


KlOl 


6024 


12512 


101040 


SNZ 




6025 


12513 


01 12652 


JMP 


0B40 


6026 


12514 


02 00631 


OB06 IDA 


AT 


6027 


12515 


11 00722 


CAS 


K104 


6028 


12516 


01 12520 


JMP 


• ♦2 


6029 


12517 


01 12553 


JMP 


OB 28 


6030 


12520 


11 oon7 


CAS 


KlOl 


6031 


12521 


01 12523 


JMP 


#♦2 


6032 


12522 


01 12542 


JMP 


OBIO 


6033 


12523 


02 00721 


LDA 


Kl03 


6034 


12924 


000201 


IA8 




6035 


12525 


02 00060 


LDA 


RPL 


6036 


12526 


10 04214 


JST 


AFOO 


6037 


12527 


02 00631 


LDA 


AT 


6038 


12530 


07 00721 


SUB 


K103 


6039 


12531 


101040 


SNZ 




6040 


t2932 


01 12542 


JMP 


0610 


6041 


12933 


140040 


CRA 




6042 


12934 


04 00630 


STA 


AF 


6043 


12535 


02 00720 


QB08 LDA 


Ki02 


6044 


12536 


04 00640 


STA 


DF 


6045 


12537 


02 00647 


LDA 


FTOP 


6046 


12540 


10 14127 


JST 


OAOO 


6047 


12541 


•0 01 12467 


JMP* 


OBOO 


6048 


12542 


02 12466 


OBIO LDA 


TlOB 


6049 


12543 


04 Q0630 


STA 


AF 


6050 


12544 


02 00647 


LDA 


FTOP 


6051 


12545 


10 15773 


JST 


OROO 
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REV, D 


PAtiE 166 


SUBSCRIPT CONSTANT 


DEFLECTION 


6015 
6016 


TO = AF 




6017 
6018 


IF AT « »DUM» 




6019 
6020 


QO TO 0B15 




6021 
6022 


IF lU « ♦SUB* 




6023 
6024 


GO TO 0B40 




6025 
6026 


IF AT « »COM» 




6027 

6028 


QO TO OB20 




6029 
603Q 


IF AT X »REi.» 
QO TO OBIO 




6031 
6032 
6033 
6034 
6035 


DEFINE AF AND AT 
IF AT « 'STR-RE' 




6036 
6037 
6038 
6039 


GO TO OBIO 




6040 
6041 


AF » 




6042 
6043 


SET FLAG TO OUTPUT 


SYMBOLIC 


6044 
6045 


OUTPUT ABSOLUTE 
RETURN 




6046 

6047 
6048 
6049 



OUTPUT REl 



w V I' V 

6051 
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6052 12546 


•0 01 12467 


JMP* 


OBOO 


6053 12547 


02 00647 


0B15 LDA 


FTOP 


6054 12550 


140024 


CHS 




6055 12551 


04 00647 


STA 


TTOP 


6056 12552 


01 12542 


JMP 


OSIO 


6057 12553 


10 14523 


0820 JST 


FSOO 


6056 12554 


02 12466 


LDA 


TlOB 


6059 12555 


0400 62 


LRU 


14 


6060 12556 


02 00647 


LDA 


FtOP 


6061 12557 


0404 66 


L6R 


10 


6062 12560 


06 12673 


ADD 


K150 


6063 12561 


0410 72 


LLL 


6 


6064 12562 


04 14632 


STA 


OCI 


6065 12563 


0410 70 


LLL 


8 


6066 12564 


04 14633 


STA 


OCNl 


6067 12565 


10 03007 


JST 


SAV 


6068 12566 


10 03770 


JST 


FLOO 


6069 12567 


1 02 15402 


LDA 


DP*2,1 


6070 12570 


04 14717 


STA 


Pftl*l3 


6071 12571 


0412 70 * 


LLR 


8 


6072 12572 


04 14636 


STA 


OCl*A 


6073 12573 


0410 70 


LLL 


8 


6074 12574 


1 02 15403 


LDA 


DP*3,1 


6075 12575 


04 14716 


STA 


PRI*12 


6076 12576 


0412 70 


LLR 


8 


6077 12577 


04 14635 


STA 


0CI*3 


6078 12600 


0410 70 


LLL 


8 


6079 12601 


1 02 15404 


LDA 


DP«4,1 


6080 12602 


03 00730 


ANA 


Kill 


6081 12603 


11 12604 


CAS 


• ♦1 


6062 12604 


020240 


OCT 


020240 


6083 12605 


05 00740 


ERA 


K122 


6084 12606 


05 00760 


ERA 


HBtT 


6085 12607 


04 14715 


STA 


PRI*11 


6086 12610 


0412 70 


LLR 


8 


6087 12611 


04 14634 


STA 


0CI«2 


6068 12612 


0410 70 


LLL 


8 



RETURN 

REVERSfc INDIRECT BIT 

QO TO OBIO 

OUTPUT COMMON REQUEST 

PACK ADDRESS INTO BLOCK 



SET COMMON NAME INTO PRINT BUFFER 



SET COMMON NAME INTO PRINT BUFFER 



■♦037777 

LOOK FOR BLANK COMMON 



SET NAME INTO PRINT BUFFER 



6052 

6053 

6054 

6055 

6056 

6057 

6058 

6059 

6060 

6061 

6062 

6063 

6064 

6065 

6066 

6067 

6066 

6069 

6070 

6071 

6072 

6073 

6074 

6075 

6076 

6077 

6078 

6079 

6080 

6081 

6062 

6083 

6084 

6085 

6086 

6087 

6088 
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6089 126X3 


02 14633 


LDA 


0CI*1 


6090 12614 


0410 70 


LLL 


8 


6091 12615 


04 14633 


STA 


OCI+1 


6092 12616 


02 00746 


LDA 


K12a 


6093 12617 


04 00602 


STA 


OCNT 


6094 12620 


10 03016 


JST 


RST 


6095 12621 


02 00000 


LDA 





6096 12622 


04 00040 


STA 


A 


6097 12623 


02 00060 


LDA 


RPL 


6098 12624 


140500 


SSM 




6099 12625 


04 00060 


STA 


RPL 


6100 12626 


02 00647 


LDA 


FTOP 


6101 12627 


10 13773 


JST 


OROO 


6102 12630 


02 00060 


LDA 


RPL 


6103 12631 


140100 


SSP 




6104 12632 


141206 


AOA 




6105 12633 


04 00060 


STA 


RPL 


6106 12634 


10 14523 


JST 


FSOO 


6107 12635 


-0 01 12467 


JMP# 


OBOO 


6108 12636 


1 02 15404 


0B3Q LDA 


DP*4,1 


6109 12637 


140500 


SSM 




6110 12640 


0416 77 


ALR 


1 


6111 12641 


140500 


SSM 




6112 12642 


0406 77 


ARR 


1 


6113 12643 


04 00570 


STA 


NAMF 


6114 12644 


1 02 15403 


LDA 


DP*3,1 


6115 12645 


04 00571 


STA 


NAMF*1 


6116 12646 


1 02 15402 


LDA 


DP*2,1 


6117 12647 


04 00572 


STA 


NAMF+2 


6118 12650 


10 12363 


JST 


CNOO 


6119 12651 


-0 01 12467 


JHP» 


0800 


6120 12652 


02 00631 


0B40 LDA 


AT 


6121 12653 


07 00720 


SUB 


KiQ2 


6122 12654 


101040 


SNZ 




6123 12655 


01 12636 


JMP 


QB30 


6124 12656 


01 12514 


J MP 


OB06 


6125 12657 


140000 


QB50 OCT 


140000 



14 



RESTOKE A TO POINT AT NAMb 

SET RPL MINUS 

TO DISABLE WORD OUTPUT 

OUTPUT WORD TO LIST 
SYMBOLIC COMMA.ND 
RESTORE AND 
INCREMENT PROGRAM 
COUNTER FOR COMMON 
OUTPUT 

CLOSE OUT BLOCK 
EXir 



6089 

6090 

6091 

6092 

6093 

6094 

6095 

6096 

6097 

6098 

6099 

6100 

6101 

6102 

6103 

61U4 

6105 

6106 

6107 

6108 

6109 

6110 

6111 

6112 

6113 

6114 

6115 

6116 

6117 

6118 

6119 

6120 

6121 

6122 

6123 

Ai 2i 

6125 



HONEYWELL COMPUTER CONTROL DIVISION 



PROGRAM DOCUMENTATION 



• C2I0-OOI-660I (FRTN) 



3C MO,1604630UO 



HfcV. U 



PAGb 171 



6126 

6127 12660 

6128 12661 

6129 12662 

6130 12663 

6131 12664 

6132 12669 

6133 12666 

6134 12667 

6135 12670 

6136 12671 

6137 12672 
6138 

6139 12673 

6140 

6141 

6142 

6143 

6144 

6145 

6146 

6147 

6148 

6149 12674 

6150 12675 

6151 12676 

6152 12677 

6153 12700 

6154 12701 

6155 12702 

6156 12703 

6157 12704 

6158 12705 

6159 12706 

6160 12707 

6161 12710 

6162 12711 



140040 OB60 CRA 

04 00067 STA 

02 00631 LDA 

11 00723 CAS 

01 12514 JHP 

01 12667 JMP 

01 12514 JMP 

02 12466 0B61 IDA 

04 00647 STA 

140040 CRA 

01 12536 JHP 

• 

000700 K150 OCT 



00 00000 TOOT PZE 
00 00000 T20T PZE 
00 00000 TIOT PZE 
00 00000 T30T PZE 
000000 OTOO DAC 
10 03007 JST 
02 00113 LDA 
04 00041 STA 
140040 CRA 

04 12674 STA 
04 00652 STA 
04 12676 OT06 STA 
02 00041 OTIO LDA 
07 00721 SUB 



HESfcT SPECIAL OUTPUT FLAG 
ADDHESS TYPE 
TEST FOR DUHMY 
PROCESS NORMALLY 

PHOCfcSS NORMALLY 



SOF 

AT 

K105 

OB06 

0B61 

0B06 

TlOB 

FTOP 

0B06<»1 

700 



•OUTPUT TRIADS* 

PKOCeSSES THE TRIAD TABLE, HANDLES FETCH 

GE.\jERATION AND RELATIONAL OPERATOR COUfe 
GENERATION, DRIVES OUTPUT ITEM. ASSIfiNS 
AND OUTPUT TEMP STORES, 









• • 

SAV 

LO 

I 

TOOT 
IFLG 
TIOT 
I 

K103 



TEMP STORE FOR P 

I = LO 
TO 5 
Tl » I 
I » I'i 



6126 

6127 

6128 

6129 

6130 

6131 

6132 

6133 

6134 

6135 

6136 

6137 

6136 

6139 

6140 

6141 

6142 

6143 

6144 

6145 

6146 

6147 

6148 

6149 

6150 

6151 

6152 

6153 

6154 

6155 

6156 

6157 

6156 

6159 

616C 

6161 

6162 



HONEYWELL 



COMPUTER CONTROL DIVISION 



PROGRAM DOCUMENTATION 



* C210-001-6601 (FRTN) 



3C NU.18046i03u 



HfcV, D 



FAGfc 172 



6163 


12712 





04 


00041 


STA 


I 


6164 


12713 





04 


12675 


STA 


T20T 


6165 


12714 





07 


00044 


SUB 


L 


6166 


12715 


1004Q0 


SPL 




6167 


12716 





01 


13121 


JMP 


OT60 


6168 


12717 





10 


02676 


JST 


STXI 


6169 


12720 


1 


02 


15402 


LDA 


DP*2,1 


6170 


12721 


140100 


SSP 




6171 


12722 





11 


00755 


CAS 


K139 


6172 


12723 





01 


12725 


JMP 


• ♦2 


6173 


12724 





01 


12710 


JMP 


OTIO 


6174 


12725 


Q 


11 


00754 


CAS 


K138 


6175 


12726 





01 


12730 


JMP 


• ♦2 


6176 


12727 





01 


12710 


JMP 


OTIO 


6177 


12730 





11 


13135 


CAS 


K142 


6178 


12731 





01 


12733 


JMP 


♦ ♦2 


6179 


12732 





01 


13112 


JMP 


OT50 


6180 


12733 





11 


13136 


CAS 


K143 


6181 


12734 





01 


12736 


JMP 


• ♦2 


6182 


12735 





01 


13103 


JMP 


0T40 


6183 


12736 





11 


I3i37 


CAS 


K151 


6184 


12737 





01 


12741 


JMP 


• «2 


6185 


12740 





01 


13074 


JMP 


0T35 


6186 


12741 





04 


12677 


STA 


T3QT 


6187 


12742 


1 


02 


15401 


LQA 


DP+1,1 


6188 


12743 





04 


00040 


STA 


A 


6189 


12744 





11 


12676 


CAS 


TIOT 


6190 


12745 


Q 


01 


12747 


JMP 


• ♦2 


6191 


12746 





01 


13016 


JMP 


OT30 


6192 


12747 





11 


00li3 


CAS 


LO 


6193 


12750 





01 


13023 


JMP 


0T16 


6194 


12751 





01 


13125 


JMP 


0T99 


6195 


12752 





01 


13023 


JMP 


QT16 


6196 


12753 





10 


02676 


0T18 JST 


STXI 


6197 


12754 


1 


02 


15400 


LDA 


DP,1 


y J A A 


M A-v e tr 


A 


n jt 


n n i\ A r\ 


f ▼ » 


* 


oiyo 


x.cf :fy 


u 


U"» 


Wy WT U 


^ 1 » 


« 


6199 


12756 


1 


02 


15402 


LDA 


DP*2»1 



T2 » I 



IF FI,viISHED# GO TO OT60 



CHECK P (I ) 
X 



SAVE P 
A s OKI) 



MAYBE SPECIAL LOAD FOR (As) STATEMENT 



A s n y M ^ 



6163 

6164 

6165 

6166 

6167 

6168 

6169 

6170 

6171 

6172 

6173 

6174 

6175 

6176 

6177 

6178 

6179 

6180 

6181 

6182 

6183 

6184 

6185 

6186 

6187 

6188 

6189 

6190 

6191 

6192 

6193 

6194 

6195 

6196 

6197 

6l9e 

6199 



HONEYWELL 



COMPUTER CONTROL DIVISION 



PROGRAM DOCUMENTATION 



• C210-001-6601 (FRTN) 



3C No, 180463000 



HEV, D 



PAGE 173 



6200 12757 


140100 


SSP 




6201 12760 


10 13147 


JST 


OMOO 


6202 12761 


10 02676 0T22 


JST 


STXI 


62U3 12762 


1 02 15402 


LDA 


DP*2,1 


6204 12763 


101400 


SMI 




6205 12764 


01 13014 


JMP 


0T26 


6206 12765 


140040 


CRA 




6207 12766 


04 00573 


STA 


NT 


6208 12767 


02 00720 


LDA 


K102 


6209 12770 


04 00655 


STA 


lU 


6210 12771 


02 12674 


LDA 


TOOT 


6211 12772 


0400 72 


LRL 


6 


6212 12773 


02 00052 


LDA 


TCF 


6213 12774 


0400 75 


LRL 


3 


6214 12775 


02 00045 


LOA 


MFL 


6215 12776 


04 00653 


STA 


IM 


6216 12777 


0410 67' 


LLL 


9 


6217 13000 


10 14150 


JST 


OR60 


6216 13001 


00147$ 


DAC 


ID 


6219 13002 


02 13133 


LDA 


K77 


6220 13003 


04 01475 


STA 


ID 


6221 13004 


12 12674 


IRS 


TOOT 


6222 13005 


10 03241 


JST 


ASOO 


6223 13006 


10 02676 


JST 


STXI 


6224 13007 


02 00040 


LOA 


A 


6225 13010 


1 04 15400 


STA 


DP.l 


6226 13011 


02 02702 


LDA 


K153 


6227 13012 


140500 


SSH 




6228 13013 


10 13147 


JST 


OMOO 


6229 13014 


02 00041 0T26 


LDA 


I 


6230 13015 


01 12707 


JMP 


OT06 


6231 13016 


10 02672 OT30 


JST 


STXA 


6232 13017 


1 02 15402 


LDA 


DP*2il 


6233 13020 


140100 


SSP 




6234 13021 


100040 


SZE 




6235 13022 


01 13025 


JMP 


0T32 


6236 13023 


02 13140 0T16 


LDA 


K152 



OUTPUT ITEM<P(I),A » 02(1)) 



ASSIGN TEMP STOR 
NT » 



lU « VAR 



ID « 

T$-lM-TCr-TO 



TO ■ 10*1 
ASSIGN ITEM 



02( I) « A 



SURPRESS TRACE OF TEMPORARY STORAGE 
OUTPUT ITEM («,A) 



IF P (A) « 



GENEKATE FETCH 



6200 
6201 
6202 
6203 
62Q4 

6205 

6206 

6207 

6208 

6209 

6210 

6211 

6212 

6213 

6214 

6215 

6216 

6217 

6213 

6219 

622Q 

6221 

6222 

6223 

6224 

6225 

6226 

6227 

6228 

6229 

6230 

6231 

6232 

6233 

6234 

6235 

6236 



HONEYWELL COMPUTER CONTROL DIVISION 



PROGRAM DOCUMENTATION 



• C210-001-6601 (FRTN) 



3C NO, 180463000 



WtV. D 



PAiib 174 



6237 


13024 





10 


13147 


JST 


OMOO 


6236 


13025 





02 


12677 


0T32 LDA 


T30T 


6239 


13026 





07 


00743 


SUB 


K125 


6240 


13027 


100400 


SPL 




6241 


13030 





01 


12753 


JMP 


0T18 


6242 


13031 





07 


00724 


SUB 


K106 


6243 


13032 


101400 


SMI 




6244 


13033 





01 


12753 


JMP 


0T18 


6245 


13034 





04 


00000 


STA 





6246 


13035 





02 


00721 


LDA 


K103 


6247 


13036 





04 


00045 


STA 


MFL 


6248 


13037 


140040 


CRA 




6249 


13040 





04 


00040 


STA 


A 


6250 


13041 


1 


01 


13050 


JMP 


• ♦7,1 


6251 


13042 





01 


13072 


JMP 


0T36 


6252 


13043 





01 


13066 


JMP 


0T3E 


6253 


13044 





01 


13057 


JMP 


0t3C 


6254 


13045 





01 


13055 


JMP 


0T3B 


6255 


13046 





01 


13053 


JMP 


0t3A 


6256 


13047 





02 


13743 


LOA 


0MJ4 


6257 


13050 





10 


14127 


JST 


OAOO 


6258 


13051 





02 


13745 


LDA 


0MJ6 


6259 


13052 





01 


13064 


JMP 


0T3D 


6260 


13053 





02 


13746 


0T3A LDA 


0MJ7 


6261 


13054 





01 


13071 


JMP 


0T3F 


6262 


13055 





02 


13747 


0T3B LDA 


OMKl 


6263 


13056 





01 


13071 


JMP 


0T3F 


6264 


13057 





02 


13743 


0T3C LDA 


0MJ4 


6265 


13060 





10 


14127 


JST 


OAOO 


6266 


13061 





02 


13750 


LDA 


0MK2 


6267 


13062 





10 


14127 


JST 


OAOO 


6268 


13U63 





02 


13751 


LDA 


0MK3 


6269 


13064 





10 


14127 


0T3D JST 


OAOO 


6270 


13065 





01 


12761 


JMP 


0T22 


6271 


13066 





02 


13741 


0T3E LDA 


0MJ2 


6272 


15067 







14127 


JST 




6273 


13070 





02 


13752 


LDA 


0HK4 



OUTPUT ITEM 

CHECK fOR RELATIONALS 

3»10 

NOT LOGICAL OPERATOR 
s6 

NOT A LOGICAL OPERATOR 
SET INDEX = -1 TO -6 
s3 (LOG) 
SET MODE TO LOGICAL 



SET FO^ 


i OCTAL ADDRESS 


BRANCH 


TO OPERATOR PROCESSOR 


.LT, 




.LE. 




.EQ, 




.GE. 




.GT. 




,NE. 


«ALS 16 


OUTPUT 


ABSOLUTE 


sACA 




«TCA 




»CMA 




s ALS : 


L6 


sSSC 




OUTPUT 


ABSOLUTE 


sAOA 




OUTPUT 


ABSOLUTE 


sSfMZ 




fi I 1 T Ui 1 T 


k f 1 C c , i 1 1 T l: 
mu <JU wv I t. 



«SbH 



6 23 7 

6238 

6239 

6240 

6241 

6242 

6243 

6244 

6245 

6246 

6247 

6246 

6249 

6250 

6251 

6252 

6253 

6254 

6255 

6256 

6257 

6258 

6259 

6260 

6261 

6262 

6263 

6264 

6265 

6266 

6267 

6268 

6269 

6270 

6271 

6272 

6273 



HONEYWELL 



COMPUTER CONTROL DIVISION 



PROGRAM DOCUMENTATION 



• C210-001-6601 (FRTN) 



iC N0.180463UOO 



RfcV, D 



PAGt 175 



6274 13071 





10 


14127 


0T3F 


JST 


OAOO 


6275 13072 





02 


13744 


0T3G 


LDA 


0MJ5 


6276 13073 





01 


13064 




JMP 


0T30 


6277 








# 






6278 13074 


1 


02 


15401 


0T35 


LDA 


DP*1,1 


6279 13075 





04 


01475 




STA 


ID 


6280 13076 





10 


02722 




JST 


NFOO 


6281 13077 





02 


13134 




LOA 


K7e 


6282 13100 





04 


00571 




STA 


NAMF*! 


6283 13101 





10 


12330 




JST 


OLOO 


6284 13102 





01 


12753 




JMP 


0T18 


6285 13103 


1 


02 


15400 


OT40 


UDA 


Df*.l 


6286 13104 





06 


00661 




ADD 


DO 


6287 13105 





04 


00041 




STA 


I 


6288 13106 





10 


06773 




JST 


DQOO 


6289 13107 





02 


12675 


0T45 


LDA 


T20T 


6290 13110 





04 


00041 




STA 


I 


6291 13111 





01 


13014 




JMP 


0T28 


6292 13112 


1 


02 


15400 


OT50 


LDA 


DP,1 


6293 13113 





06 


00661 




ADD 


DO 


6294 13114 





04 


00041 




STA 


I 


6295 13115 





07 


00661 




SUB 


DO 


6296 13116 


100040 




SZE 




6297 13117 





10 


06747 




JST 


DSOO 


6298 13120 





01 


13107 




JMP 


0T45 


6299 13121 





10 


03016 


OT60 


JST 


RST 


6300 13122 





02 


00113 




LOA 


LO 


6301 13123 





04 


00044 




STA 


L 


6302 13124 


-0 


01 


12700 




JMP« 


OTOO 


6303 








• 






6304 13125 





02 


12677 


0T99 


LDA 


T30T 


6305 13126 





07 


02702 




SUB 


K153 


6306 13127 


100040 




SZE 




6307 13130 





01 


13023 




JMP 


0T16 


6308 13131 





04 


00045 




STA 


MFL 


6309 13132 





01 


12753 




JMP 


0T18 


6310 13133 


152244 


K77 


BCI 


l,Tl 



OUTPUT ABSOLUTE 
sLGH 15 



NAMF 3 F SAR 

OUTPUT OBJECT LINK 
GO TO 0T18 



I s 02 ( 1 ) ♦ DO 
DO TERMINATION 

I « T2 



I»02(I)*D0 
IF I a DO 

GO TO 0T45 
DO INITIAUIZE 
GO TO 0T45 

RESET TRIAD TABLE 



CODE FOR B 

NOT SPECIAL LOAD 
SPECIAL LOAD, SET MFL»0 
OUTPUT A STORE 

T$ 



6274 

6275 

6276 

6277 

6278 

6279 

6200 

6281 

6282 

6283 

6284 

6285 

6286 

6287 

6288 

6289 

6290 

6291 

6292 

6293 

6294 

6295 

6296 

6297 

6298 

6299 

6300 

6301 

6302 

6303 

6304 

6305 

6306 

6307 

6308 

6309 

6310 



HONEYWELL. 



COMPUTER CONTROL DiViSiOH 



PROGRAM DOCUMENTATION 



♦ C210-001-6601 (FRTN) 



3C NO, 180463000 



HfcV, D 



PACiE 176 



6311 

6312 

6313 

6314 

6315 

6316 

6317 

6318 

6319 

6320 

6321 

6322 

6323 

6324 

6325 

6326 

6327 

6328 

6329 

6330 

6331 

6332 

6333 

6334 

6335 

6336 

6337 

6338 

6339 

6340 

6341 

6342 

6343 

6344 

6345 

6346 

6347 



13134 
13135 
13136 
13137 
13140 



13141 
13142 
13143 
13144 
13145 
13146 



13147 
13150 
13151 
13152 
13153 
13154 
13155 
13156 
13157 
13160 
13161 
13162 
13163 



140722 
000027 
000030 
000032 
000031 



00 00000 
00 00000 
00 00000 
00 00000 
00 00000 
00 00000 



K78 BCI 
K142 OCT 
K143 OCT 
K151 OCT 
K152 OCT 
• 

* 

* 
• 

TOOM PZE 
TIOM PZE 
t20M PZE 
T80M PZE 
T90M PZE 
TXOM PZE 



000000 

04 13144 

140100 

04 13141 
11 00752 
01 13156 

01 13653 

02 13146 
11 00717 
01 13655 
01 13660 

140040 

04 13142 



OMOO OAC 
STA 
SSP 
STA 
CAS 
JMP 
JMP 
LOA 
CAS 
JMP 
JMP 

0M05 CRA 
STA 



liAR 

27 

30 

32 

31 



AR 



•OUTPUT ITEM* 



DRIVES BASIC OUTPUT ROUTINES. HANDLES SPECIAL 
SUBSCRIPT PROCESSING, GENERATES NECESSARY 
MODE CONVERSION CALLS AND HANDLES MODE 
CHECKING, IN-LINE ARITHMETIC CODE IS 
GENERATED WHERE POSSIBLE, OTHERWISE CALLS 
TO ARITHMETIC ROUTINES ARE GENERATED. 










— -OUTPUT ITEM 

• • 
T80M 

TOOM 
K134 

• ♦2 
OMDl 
TXOM 
KlOl 
OMEl 
0ME5 

TIOH 



RETURN ADDR 



R(0)«CA)s'p' CODE 



T(l)sO 



6311 

6312 

6313 

6314 

6315 

6316 

6317 

6316 

6319 

6320 

6321 

6322 

6323 

6324 

6325 

6326 

6327 

6328 

6329 

6330 

6331 

6332 

6333 

6334 

6335 

6336 

6337 

6338 

6339 

6340 

6341 

6342 

6343 

6344 

6345 

63 46 

6347 



HONEYWELL 



COMPUTER CONTROL DIVISION 



PROGRAM DOCUMENTATION 



* C210-001-6601 (FRTN) 



3C NO, 180463000 



RfcV. D 



PAG& 177 



6348 13164 


04 


13145 


STA 


T9QM 


6349 13165 


02 


00040 


LOA 


A 


6350 13166 


04 


13143 


STA 


T20M 


6351 13167 


100040 


SZE 




6352 13170 


01 


13173 


JMP 


OM07 


6353 13171 


02 


00045 


LOA 


MFL 


6354 13172 


01 


13205 


JMP 


0M13 


6355 13173 


11 


00113 


0M07 CAS 


LO 


6356 131^4 


01 


13176 


JMP 


#♦2 


6357 13175 


01 


13^70 


JMP 


OMLl 


6356 13176 


11 


00054 


CAS 


ABAR 


6359 13177 


01 


13413 


JMP 


0M76 


6360 13200 


01 


13201 


JMP 


♦ ♦1 


6361 13201 


10 


02672 


OHIO JST 


STXA 


6362 13202 


1 02 


15400 


IDA 


DP.l 


6363 13203 


0405 


67 


ARS 


9 


6364 13204 


03 


00725 


ANA 


K107 


6365 13205 


04 


00653 


0M13 STA 


IM 


6366 13206 


02 


00045 


0M14 LDA 


MFL 


6367 13207 


0415 


70 


AUS 


8 


6368 13210 


06 


00653 


ADO 


IM 


6369 13211 


05 


13516 


ERA 


OM90 


6370 13212 


04 


00571 


STA 


NAMF+1 


6371 13213 


02 


10030 


LDA 


K130 


6372 13214 


04 


00000 


STA 





6373 13215 


02 


13141 


LOA 


TOOM 


6374 13216 


1 11 


13333 


CAS 


OM50*6,1 


6375 13217 


01 


13221 


JMP 


#♦2 


6376 13220 


-1 01 


13341 


JMP# 


0M52+6.1 


6377 13221 


12 


OOOUO 


IRS 





6378 13222 


01 


13216 


JMP 


• -4 


6379 13223 


02 


00045 


LDA 


MFL 


6380 13224 


101040 


SNZ 




6381 13225 


01 


13354 


JMP 


QM62 


6382 13226 


11 


00653 


CAS 


IM 


6383 13227 


01 


13231 


JMP 


• ♦if 


6384 13230 


01 


13526 


JMP 


OMAl 



T(9)«0 
T(2)sA 



A ,LE, ABAR. ,. .WITHIN TRIAD TABLE 

SET iNDEXsA 

SES IMsMODE OF ITEM 

SET MFL»IM AS DIGITS INTO NAMF 

ADD '0'»0' 



INDEXa-6 

CHECK FOR SPECIAL OPERATOR 

n 

*P'«'Q', ', •, 'O'l 'A'F', OR 'E 



SPECIAL LIBRARY FIX FOR ( As ) 
CHECK FOR MODE MIXING 

ITEM MODE SAME AS CURRENT MOJfc 



6348 
6349 
6350 
6351 
6352 

6353 

6354 
6355 
6356 
6357 
6356 
6359 
6360 
6361 
6362 
6363 
6364 
6365 
6366 
6367 
6366 
6369 
6370 
6371 
6372 
6373 
6374 
6375 
6376 
6377 
6378 
6379 
6360 
6361 
6382 
6363 
6384 
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6385 


13231 





02 


00721 OM20 


IDA 


K103 


6386 


13232 





10 


13313 


JST 


0M44 


6367 


13233 





02 


00720 


IDA 


K102 


6388 


13234 





11 


OC045 


CAS 


MfL 


6389 


13235 





01 


13237 


JMP 


• ♦2 


6390 


13236 





01 


13244 


JMP 


0M26 


6391 


13237 





11 


00653 


CAS 


IM 


6392 


13240 





01 


13242 


JHP 


• ♦2 


6393 


13241 





01 


13244 


JMP 


0M26 


6394 


13242 





02 


00723 


LDA 


K105 


6395 


13243 





10 


13313 


JST 


0M44 


6396 


13244 





02 


13141 0H26 


LDA 


TOOM 


6397 


13245 





11 


02702 


CAS 


K153 


6398 


13246 





01 


13250 


JMP 


• ♦2 


6399 


13247 





01 


13274 


JMP 


0M36 


6400 


13250 





02 


00717 


UDA 


KlOl 


6401 


13251 





10 


13313 


JST 


0M44 


6402 


13252 





02 


00653 


LDA 


IM 


6403 


13253 





11 


00045 


CAS 


MFL 


6404 


13254 





01 


13276 


JMP 


0M36 


6405 


13255 





01 


13256 


JMP 


**1 


6406 


13256 


D 


10 


02722 OH30 


JST 


NFOO 


6407 


13257 





02 


13141 


LDA 


TOOM 


6408 


13260 





04 


ooobo 


STA 





6409 


13261 


1 


02 


05032 


LDA 


A9X4il 


6410 


13262 


0405 


72 


ARS 


6 


6411 


13263 





03 


00727 


ANA 


KlOO 


6412 


13264 


101040 


SN2 




6413 


13265 





01 


13323 


JMP 


0M46 


6414 


13266 


0414 


70 


LGL 


8 


6415 


13267 





05 


13517 


ERA 


0M91 


6416 


13270 





04 


00570 


STA 


NAMF 


6417 


13271 





02 


00752 


LDA 


K134 


6418 


13272 





04 


13141 


STA 


TOOM 


6419 


13273 





01 


13303 


JMP 


OM40 


6420 








• 






6421 


13274 





02 


J0723 0M36 


LDA 


K105 



CHECK MODE FOR LOG 

»2 (MODE CODE FOR REAL) 

MODE OF EXPRESSION 

IF MODE»REALi ALLON COMPLEX MODE MIXING 
MODE OF ITEM 

IF MODE»REAL. ALLOW COMPLEX MODE MIXING 

TEST FOR MODEa COMPLEX 
OPERATOR BEING PROCESSED 



T(0)='a» (ALLOW INTEGER MODE) 
TEST FOR MODEiINTEGER 

CONVfcRT MODE OF ACCUMULATOR 
SET LHUF*2 TO SPACES 

PICK-UP PRINT CODE FOR 'P^ OPERATOR 

«»37; 

MODE MIXING ERROR 

ADD •$' 

T<0)=', ' 



6385 
6386 
6387 
6388 
6389 
6390 
6391 
6392 
6393 
6394 
6395 
6396 
6397 
6396 
6399 
6400 
6401 
6402 
6403 
6404 
6405 
6406 
6407 
6408 
6409 
6410 
6411 
6412 
6413 
6414 
6415 
6416 
6417 
6418 
6419 
642n 
6421 
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6422 

6423 

6424 

6425 

6426 

6427 

6428 

6429 

6430 

6431 

6432 

6433 

6434 

6435 

6436 

6437 

6438 

6439 

6440 

6441 

6442 

6443 

6444 

6445 

6446 

6447 

6448 

6449 

6450 

6451 

6452 

6453 

6454 

6455 

6456 

6457 

6458 



13275 
13276 
13277 
13300 
13301 
13302 
13303 
13304 
13305 
13306 
13307 
13310 
13311 
13312 



13313 
13314 
13315 
13316 
13317 
13320 
13321 
13322 
13323 
13324 



13325 
13326 
13327 
13330 
13331 
13332 
13333 
13334 
13335 



10 
02 
04 
10 
02 
04 
10 
02 
04 
02 
11 
01 
01 
01 



13313 

00653 0H38 

00045 

02722 

13520 

00570 

12363 OH40 

00045 

00653 

00570 

13524 

13206 

13147 

13206 



JST 

L.DA 

STA 

JST 

LOA 

STA 

JST 

LOA 

STA 

LDA 

CAS 

JMP 

JMP* 

JMP 



0M44 

IM" 

MFC 

NFOO 

0H92 

NAMF 

CNOO 

MFC 

IM 

NAMF 

0M96 

0Mi4 

OMdO 

0M14 



000000 

11 00653 

01 13317 

01 13323 

11 00045 
•0 01 13313 

01 13323 
'0 01 13313 

10 03116 0M46 JST 

146715 BCI 



♦ SUBROUTINE TO CHECK 

0M44 DAC ## 

IM 

• ♦2 

0M46 

MFL 

0M44 

0M46 

0M44 

EROO 

1»MM 



CAS 

JMP 

JMP 

CAS 

JMP* 

JMP 

JMP» 



CHfcCK FOR MODE«COMPLEX 

SET LBUF*2 TO SPACES 

OUTPUT.... CAIL NAMF 

SET ITEM MODE TO CURRENT MODE 



OUTPUT ARGUMENT ADDRESS 

FOR ILLEGAL IM OR MFL MODES. 
RETURN ADDR, 
CHECK FOR IMO(A) 

ERROR 

CHECK FOR MFL»(A) 

ERROR 

NON-HfeCOVERABLE ERROR...... 

MODE MIXING ERROR 



000032 
000017 
000000 
000022 
000031 
000020 
013611 
013611 
013611 



dM50 



0M52 



OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
DAC 
DAC 
DAC 



'SPECIAL 'P' OPERATOR 



32 

17 
00 
22 

31 

20 

0MB3 
0MB3 
0MB3 



TABLE 

IQf 

»o» 

♦A' 

if f 

*£' 

( 'Q' ) 
('»•) 
( '0' ) 



6422 

6423 

6424 

6425 

6426 

6427 

6426 

6429 

6430 

6431 

6432 

6433 

6434 

6435 

6436 

6437 

6436 

6439 

6440 

6441 

6442 

6443 

6444 

6445 

6446 

6447 

6446 

6449 

6450 

6451 

6452 

6453 

6454 

6455 

6456 

6457 

6458 
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6459 


13336 


013341 


DAC 


0M56 


6460 


13337 


013343 


DAC 


OM60 


6461 


13340 


013401 


DAC 


OH70 


6462 




» 






6463 




• 






6464 


13341 


02 13727 0M56 


LDA 


OMIl 


6465 


13342 


01 13607 


JMP 


OMBl 


6466 




« 






6467 


13343 


10 02672 OM60 


JST 


STXA 


646d 


13344 


1 02 15401 


LDA 


DP*1,1 


6469 


13345 


0404 62 


LQR 


14 


6470 


13346 


04 00655 


STA 


lU 


6471 


13347 


10 02676 


JST 


STXI 


6472 


13350 


1 02 15402 


LDA 


DP*2,1 


6473 


13351 


03 10027 


ANA 


K133 


6474 


13352 


1O1O40 


SNZ 




6475 


13353 


01 13370 


JMP 


0M64 


6476 


13354 


02 00653 QH62 


LDA 


IM 


6477 


13355 


04 00045 


STA 


MFL 


6478 


13356 


0414 70 


L6L 


8 


6479 


13357 


06 00653 


ADD 


IM 


6480 


13360 


05 13516 


ERA 


OM90 


6461 


13361 


04 00^71 


STA 


NAMF*1 


6462 


13362 


02 00655 


LDA 


lU 


6483 


13363 


07 00717 


SUB 


KlOl 


6484 


13364 


100040 


SZE 




6485 


13365 


01 13526 


JMP 


OMAl 


6486 


13366 


02 13730 


LDA 


0MI2 


6487 


13367 


01 13377 


JMP 


0M66 


6488 


13370 


02 00655 0M64 


LDA 


lU 


6489 


13371 


07 00721 


SU8 


K103 


6490 


13372 


100040 


SZE 




6491 


13373 


01 13354 


JMP 


0M62 


6492 


13374 


02 00717 


LDA 


KlOl 


6493 


13375 


04 00045 


STA 


MFL 


6494 


13376 


02 13731 


LDA 


0MI3 


6495 


13377 


04 13142 0M66 


STA 


TIOM 



( »A') 
CFM 
C'fc') 



SET T(l) » ADD* 

SET INUEX * A 

SET UV«IU(A) 

SET INDEX«I 

P(I) 

«»77 



(POSSIBLE DUMMY ARRAY FETCH) 
SET CUKRENT MODE TO ITEM MOUk 



CHECK FOR IU»1 (SUBROUTINE) 

SET T(l) a JST 

CHECK FOR IV«3 (ARRAY) 

SET CURRENT MODE TO INTEGtR 
SET T(i) s uDa» 



6459 

6460 

6461 

6462 

6463 

6464 

6465 

6466 

6467 

6466 

6469 

6470 

6471 

6472 

6473 

6474 

6475 

6476 

6477 

6476 

6479 

6480 

6461 

6482 

6483 

6484 

6485 

6496 

6467 

6488 

6489 

6490 

6491 

6492 

6493 

6495 



HONEYWELL COMPUTER CONTROL DIVISION 



PROGRAM DOCUMENTATION 
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6496 
6497 
6498 
6499 
6500 

6501 

6502 

6503 

6504 

6505 

6506 

6507 

6508 

6509 

6510 

6511 

6512 

6513 

6514 

6515 

6516 

6517 

6518 

6519 

6520 

6521 

6522 

6523 

6524 

6525 

6526 

6527 

6528 

6529 

6530 

6531 

6532 



13400 01 13611 



JHP 0MB3 



13401 
13402 
13403 
13404 
13405 
13406 
13407 
13410 
13411 
13412 

13413 

13414 

13415 

13416 

13417 

13420 

13421 

13422 

13423 

13424 

13425 

13426 

13427 

13430 

13431 

13432 

13433 
13434 
13435 
13436 
13437 
13440 
13441 



02 00717 
11 00653 
01 13405 

01 13410 

02 00723 
10 13313 

01 13231 

02 00721 
10 13313 
01 13256 



10 02672 

1 02 15400 

04 l3i43 

1 02 15402 
03 10027 
101040 

01 13466 
11 00755 
01 13425 
01 13433 
11 00754 
01 13430 

01 13510 

02 13143 
04 00040 
01 13201 



10 02676 

02 13143 

1 04 15401 
140040 

04 12676 
02 00040 
04 13142 



0M70 UDA 
CAS 
JHP 
JMP 
IDA 
JST 
JMP 

0M74 LDA 
JST 
JMP 

0M76 JST 
IDA 
STA 
LDA 
ANA 
SNZ 
JMP 
CAS 
JMP 
JMP 
CAS 
JMP 
JMP 

0M78 LOA 
STA 
JMP 

* 

OM80 JST 
UOA 
STA 
CRA 
STA 
LDA 
STA 



KlOl 

IM 

•♦2 

0M74 
K105 
0M44 
0M20 
K103 
0M44 
0M30 

STXA 

DP.l 
T20M 
DP*2,1 
K133 

0M84 

K139 

• ♦2 

OM80 

K13d 

•♦2 

OMHW 

T26m 

A 

OHIO 

STXI 
T20M 
DP*1,1 

TIOT 
A 

TIOM 



CHECK ITEM MODE EQUALS INTEGER 

CHECK FOR MODE » COMPLEX 

CHECK FOR MODE a LOGICAL 
OUTPUT SUBROUTINE CALL 

INDbXsA 

02(A) 

T<2)»Q2{A) 

P(A) 

• »77 

P(A)»'0' (SUBSCRIPTED VARIABLE) 
P(A)«»X» (END OF ARRAY CALCULATION) 

P(4)« 'H» (HOLLERITH DATA) 
RESET A 

INDEX«I 
OKI) « T(2) 

SET T(l) OF OUTPUT TRIADS TQ ZhRO 
SAVt A 



6496 

6497 

6498 

6499 

6500 

6501 

6502 

6503 

6504 

6505 

6506 

6507 

6508 

6509 

6510 

6511 

6512 

6513 

65i4 

6515 

6516 

6517 

6518 

6519 

6520 

6521 

6522 

6523 

6524 

6525 

6526 

6527 

6528 

6529 

6530 

6531 

6532 
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3C NO,1B0463000 



HEV, 



PAUt ltt2 



6533 


13442 


140040 


CRA 




6534 


13443 





04 


00040 


STA 


A 


6535 


13444 





02 


00060 


LDA 


RPL 


6536 


13445 





06 


00720 


ADD 


K102 


6537 


13446 





04 


00630 


STA 


AF 


6538 


13447 





02 


13732 


LDA 


0MI4 


6539 


13450 





10 


13773 


JST 


ORtJO 


6540 


13451 





02 


00060 


LDA 


RPL 


6541 


13452 





06 


00720 


ADD 


K102 


6542 


13453 





04 


00630 


STA 


AF 


6543 


13454 





02 


13733 


LDA 


0MI5 


6544 


13455 





10 


13773 


JST 


OROO 


6545 


13456 





02 


13142 


LDA 


TIOM 


6546 


13457 





04 


00040 


STA 


A 


6547 


13460 





04 


00067 


STA 


SOF 


6546 


13461 


140040 


CRA 




6549 


13462 





04 


13142 


STA 


TIOM 


6550 


13463 





02 


00717 


LDA 


KiOl 


65$X 


13464 





04 


00631 


STA 


At 


6552 


13465 





01 


13504 


JMP 


OMbd 


6553 


13466 


1 


02 


15401 


0M84 LDA 


DP*1,1 


6554 


13467 





04 


00040 


STA 


A 


6555 


13470 





11 


00113 


CAS 


LO 


6556 


13471 





01 


13473 


JMP 


#♦2 


6557 


13472 





01 


13476 


JMP 


0M86 


6558 


13473 





02 


13726 


LDA 


OMIO 


6559 


13474 





04 


13142 


STA 


TIOM 


6560 


13475 





01 


13201 


JMP 


OMIO 


6561 










• 




6562 


13476 





02 


13143 


0Md6 LDA 


T20M 


6563 


13477 





04 


00040 


STA 


A 


6564 


13500 





04 


00000 


STA 





6565 


13501 





04 


00067 


STA 


SOF 


6566 


13502 


1 


02 


15400 


LDA 


DP,1 


6567 


13503 





04 


13143 


STA 


T20M 


6566 









U6W/ c 


unoo ua 1 


f< v w * 

^ i A « 


6569 


13505 


1 


02 


15401 


LDA 


DP*1.1 



SET AsO (NOT SYMBOLIC) 



AF5KPL+2 

»AUD INSTRUCTION 
OUTPUT RELATIVE 

AF 3 RPL P* 2 

■ JMP INSTK, 
OUTPUT RELATIVE 

RESTORE A 

SET SPECIAL OUTPUT FLAG TO NUN-ZERO 

s DAC INSTR. 



OKA) 
AaOKA) 



A»L(0).,., CONSTANT SUBSCRIPT ONLY 
T(l) « INDIRECT BIT 



A=T(2) 



T(2) = 02(A) 



') 1 ( A ) 



6533 

6534 

6535 

6536 

6537 

6538 

6539 

6540 

6541 

6542 

6543 

6544 

6545 

6546 

6547 

6548 

6549 

6550 

6551 

6552 

6553 

6554 

6555 

6556 

6557 

6558 

6559 

6560 

6561 

6562 

6563 

6564 

6565 

6566 

6567 

656B 

6569 
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6570 13506 


04 


13145 




STA 


T90M 


6571 13507 


01 


13430 




JMP 


0M78 


6572 13510 


02 


13143 


OMHW 


LOA 


T20M 


6573 13511 


04 


00630 




STA 


AT 


6574 13512 


140040 




CRA 




6575 13513 


04 


00040 




STA 


A 


6576 13514 


10 


13773 




JST 


OROO 


6577 13515 


•0 01 


13147 




JMP# 


OMOO 


6578 






• 






6579 13516 


130260 


OM90 


OCT 


130260 


6580 13517 


000244 


0M91 


OCT 


000244 


6581 13520 


141644 


QM92 


OCT 


141644 


6582 13521 


152322 


0M93 


OCT 


152322 


6583 13522 


000021 


0M94 


OCT 


000021 


6584 13523 


017777 


0H95 


OCT 


017777 


6585 13524 


147244 


0M96 


BCI 


1»NS 


6586 13525 


126661 


0M97 


301 


1»*1 


6587 






• 






6588 13526 


02 


00653 


OMAl 


UOA 


IM 


6589 13527 


11 


00721 




CAS 


K103 


6590 13530 


01 


13532 




JMP 


**2 


6591 13531 


01 


13630 




JMP 


OMCl 


6592 13532 


11 


00717 




CAS 


KlOl 


6593 13533 


01 


13535 




JMP 


• ♦2 


6594 13534 


01 


13536 




JMP 


0MA3 


6595 13535 


01 


13256 




JMP 


OM30 


6596 






« 






6597 13536 


02 


13141 


0HA3 


LOA 


TOOM 


6598 13537 


11 


00721 




CAS 


K103 


6599 13540 


01 


13542 




JMP 


• ♦2 


6600 13541 


01 


13551 




JMP 


0MA4 


6601 13542 


11 


13522 




CAS 


0M94 


6602 13543 


01 


13545 




JMP 


**2 


6603 13544 


01 


13567 




JMP 


0MA6 


6604 13545 


11 


00717 




CAS 


KlOl 


6605 13546 


01 


13563 




JMP 


0MA5 


6606 13547 


02 


13732 




LDA 


0MI4 



T(9)»01(A) 



»00' 
* S« 

»cs* 

»TR' 

»C» CODE 

<MASK) 



CHECK FOR IM»LOGICAL 



IM«t.OaiCAL 

CHECK FOR IM»INTEGER 

IM'INTfcGER 



CHECK FOR T,0) » ♦♦♦ 
»3 

T(0)" '♦» 
T(0)«'C» 

OUTPUT »TCA' 



«ADD I.NiSTR, 



6570 

6571 

6572 

6573 

6574 

6575 

6576 

6577 

6578 

6579 

6580 

6581 

6582 

6583 

6584 

6585 

6586 

6587 

6508 

6589 

6590 

6591 

6592 

6593 

6594 

6595 

6596 

6597 

6598 

6599 

6600 

6601 

6602 

6603 

6604 

6605 

6606 
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3C .N0.18046iOUU 



RfcV, D 



PALifc ia4 



66Q7 


13550 


01 13607 




JMP 


OMBl 


6608 


13551 


02 13143 


0MA4 


LDA 


T20M 


6609 


13552 


07 00744 




SUB 


K126 


6610 


13553 


100040 




SZE 




6611 


13554 


01 13256 




JMP 


OM30 


6612 


13555 


04 00040 




STA 


A 


6613 


13556 


04 00630 




STA 


AF 


6614 


13557 


02 13562 




LDA 


#♦3 


6615 


13560 


10 14127 




JST 


OAOO 


6616 


13561 


-0 01 13147 




JMP# 


OMOO 


6617 


13562 


0415 77 




ALS 


1 


6618 


13563 


11 00720 


0MA5 


CAS 


K102 


6619 


13564 


01 13576 




JMP 


0MA7 


6620 


13565 


02 13^34 




UDA 


0MI6 


6621 


13566 


01 13607 




JMP 


OMBl 


6622 


13567 


140040 


0MA6 


CRA 




6623 


13570 


04 00040 




STA 


A 


6624 


13571 


04 00630 




STA 


AF 


6625 


13572 


02 13575 




LDA 


• ♦3 


6626 


13573 


10 14127 




JST 


OAOO 


6627 


13574 


-0 01 13147 




JMP* 


OMOO 


6628 


13575 


140407 




TCA 




6629 


13576 


11 02702 


0MA7 


CAS 


K153 


6630 


13577 


01 13601 




JMP 


• ♦2 


6631 


13600* 


01 13606 




JMP 


0MA9 


6632 


13601 


07 13140 




SUB 


K152 


6633 


13602 


100040 




SZE 




6634 


13603 


01 13256 




JMP 


OM30 


6635 


13604 


02 13735 


0MA8 


LDA 


0MI7 


6636 


13605 


01 13607 




JMP 


OMBl 


6637 


13606 


02 13736 


0MA9 


LDA 


OMib 


6638 


13607 


06 13142 


OMBl 


ADD 


TIOM 


6639 


13610 


04 13142 




STA 


TIOM 


6640 


13611 


02 13143 


0MB3 


LDA 


T20M 


6641 


13612 


04 00040 




STA 


A 


6642 


13613 


02 13145 




LDA 


T90H 


6643 


13614 


000201 




lAB 





VALUt OF A 

='Vd KNOWN LOCATION OF A FUH 2 

SKIP IF MULTIPLIER IS A CONSTANT OF 2 

COUPLE: TO THE MULTIPLY SUBROUTINE 

SET A AND AF TO ZERO (FOR LISTING FLAGS) 

ALS 1 INSTRUCTION 
OUTPUT ABSOLUTE 
EXIT OUTPUT ITEM 
(INSTRUCTION TO BE OUTPUT) 
CHECK FOR T(0) ■ ♦-' 

»SUB INSTR, 



CAUSE OCTAL ADDR LISTING 

TCA 

OUTPUT ABSOLUTE 

EXIT 

CHECK FOR T(0) s »■» 

OUTPUT A STA INSTR, 
CHECK FOR T(0) « »F' 



»LDA INSTR, 

aSTA INSTR. 

T(l) « T(l) ♦ INSTR, 

SET A5T(2) 

OUTPUT INSTH. ^ITH T(l) ANU HV) 



6607 
6608 
6609 
6610 
6611 
6612 
6613 
6614 
6615 
6616 
6617 
6618 
6619 
6620 
6621 
6622 
6623 
6624 
6625 
6626 
6627 
6628 
6629 
6630 
6631 
6632 
6633 
6634 
6635 
66 36 
6637 
6638 
6639 
6640 
6641 
664<J 
6643 
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6644 

6645 

6646 

6647 

6648 

6649 

6650 

6651 

6652 

6653 

6654 

6655 

6656 

6657 

665d 

6659 

6660 

6661 

6662 

6663 

6664 

6665 

6666 

6667 

6668 

6669 

6670 

6671 

6672 

6673 

6674 

6675 

6676 

6677 

6678 

6679 

6680 



13615 
13616 
13617 
13620 
13621 
13622 
13623 
13624 
13625 
13626 
13627 



13630 

13631 

13632 

13633 

13634 

13635 

13636 

13637 

13640 

13641 

13642 

13643 

13644 

13645 

13646 

13647 

13650 

13651 

13652 

13653 

13654 

13655 

13656 

13657 






02 


13142 





10 


12467 





02 


13144 





11 


02702 


-0 


01 


13147 





01 


13624 


-0 


01 


13147 





02 


00066 





04 


00040 





10 


13663 


-0 


01 


13147 





02 


13141 





11 


13i40 





01 


13634 





01 


13604 





11 


02702 





01 


13637 





01 


13606 





11 


13522 





01 


13642 





01 


13256 





11 


00724 





01 


13645 





01 


13651 





11 


00725 





01 


13323 





01 


13256 





01 


13323 





02 


13737 





01 


13607 





12 


13146 





01 


13162 


140040 





04 


00640 





10 


14127 



UDA 

JST 

LDA 

CAS 

JMP# 

JMP 

JMP* 

LOA 

STA 

JST 

JMP* 



OMCl LDA 
CAS 
JHP 
JMP 

CAS 

JMP 

JMP 

CAS 

JMP 

JMP 

CAS 

JMP 

JMP 

CAS 

JMP 

JMP 

JMP 

0MC5 LDA 
JMP 

OMDl IRS 
JMP 

OMEl CRA 
STA 
JST 



TIOM 

0300 

T80M 

K153 

OMOO 

• ♦2 

OMOO 

TRfA 

A 

TRSE 

OMOO 



TOOM 
K152 

• ♦2 
0MA8 
K153 
#♦2 
0MA9 
0M94 

• ♦2 
OM30 
K106 

• ♦2 
0MC5 
K107 
0M46 
OM30 
0M46 
0MI9 
OMBl 
TXOM 
OM05 

DP 
OAOO 



OUTPUT OA 

CHECK FOR T(8) » ♦»» 

«'16 



EXIT 



POINTtR To FIRST VARIABLE OR ARRAY 

PROCESSED IN EXPRESSION 
OUTPUT TRACE COUPLING IF REQUIRED 
EXIT OUTPUT ITEM 



CHECK FOR T(0) « »F» 

OUTPUT A LDA INSTR. 
CHECK FOR T(0) » ♦«» 

OUTPUT A STA INSTR, 
CHECK FOR T(0) ■ ^C 

OUTPUT COMPLEMENT CODING 



OUTPUT AN ANA INSTR, 
ERROR 

ERROR 

"ANA INSTR. 

TO 3 TO*! 



DF 3 

OUTPUT ABSOLUTE 



6644 

6645 

6646 

6647 

6648 

6649 

6650 

6651 

6652 

6653 

6654 

6655 

6656 

6657 

6658 

6659 

6660 

6661 

6662 

6663 

6664 

6665 

6666 

6667 

6668 

6669 

6670 

6671 

6672 

6673 

6674 

6675 

6676 

6677 

6678 

6679 

6660 
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6681 


13660 


140040 0ME5 


CRA 




6682 


13661 


04 


13146 


STA 


TXOM 


6683 


13662 


01 


13162 


JMP 


OM05 


6684 






• 






6685 


13663 


000000 TRSE 


DAC 





6686 


13664 


10 


02672 


JST 


STXA 


6687 


13665 


100040 


SZE 




6688 


13666 


1 02 


15404 


LDA 


DP*4,1 


6689 


13667 


100400 


SPL 




6690 


13670 


01 


13676 


JMP 


TRS7 


6691 


13671 


100002 


SR4 




6692 


13672 


01 


13676 


JMP 


TRS7 


6693 


13673 


02 


00065 


LDA 


TRF 


6694 


13674 


101040 


SNZ 




6695 


13675 


-0 01 


13663 


JMP» 


TRSE 


6696 


13676 


10 


02722 TRS7 


JST 


Nroo 


6697 


13677 


02 


13521 


LDA 


0M93 


6698 


13700 


04 


00571 


STA 


NAMF+1 


6699 


13701 


10 


12363 


JST 


CNOO 


6700 


13702 


10 


02672 


JST 


STXA 


6701 


13703 


1 02 


15404 


LDA 


DP+4,1 


6702 


13704 


03 


13523 


ANA 


0M95 


6703 


13705 


04 


13142 


STA 


TIOM 


6704 


13706 


1 02 


15403 


LDA 


DP*3,1 


6705 


13707 


04 


13144 


STA 


T80M 


6706 


13710 


1 02 


15402 


LDA 


DP*2,1 


6707 


13711 


04 


13145 


STA 


T90M 


6708 


13712 


140040 


CRA 




6709 


13713 


04 


00640 


STA 


DF 


6710 


13714 


1 02 


15400 


LDA 


DP,1 


6711 


13715 


0405 


67 


ARS 


9 


6712 


13716 


0414 


63 


LQL 


13 


6713 


13717 


05 


13142 


ERA 


TIOM 


6714 


13720 


10 


14127 


JST 


OAOO 


6715 


13721 


02 


13144 


LDA 


T80H 


6716 


13722 


10 


14127 


JST 


OAQO 


6717 


13723 


02 


13145 


LDA 


T90H 



TO « 



SUBROUTINE TO OUTPUT TRACE COUPLING 
SET INDEX « A 

CHECK STATUS OF TRACE TAG 



CHECK STATUS OF TRACE FLAG 



SET LbUF TO 'FSS LBUF*2 TO SPACES 
s»TR' 

OUTPUT CALL NAMF 

SET INDEX s A 



MERGE IM WITH ITEM NAME 

OUTPUT ABSOLUTE (FIRST 2 CHAN,) 
OUTPUT ABSOLUTE (NEXT 2 CHAH.) 



6681 
6662 
0663 
6684 
6665 
6686 
6687 
6688 
6689 
6690 
6691 
6692 
6693 
6694 
6695 
6696 
6697 
6698 
6699 
6700 
6701 
6702 
6703 
6704 
6705 
6706 
6707 
6708 
6709 
6710 
6711 
6712 
6713 
6714 
6715 
6716 
6717 
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6718 13724 


10 14127 




JST 


OAOO 


OUTPUT ABSOl 


6719 13725 


-0 01 13663 




JMP* 


TRSE 




6720 




• 








6721 


100000 


*. . . 






INSTRUCTION TABLE 


6722 13726 


OHIO 


*6cT** 


*iooooo* 


iNDlRfeCT BIT 


6723 13727 


114000 


OMIl 


OCT 


114000 


ADD* 


6724 13730 


020000 


0MI2 


OCT 


020000 


JST 


6725 13731 


104000 


0MI3 


OCT 


104000 


LDA» 


6726 13732 


014000 


0MI4 


OCT 


014000 


ADD 


6727 13733 


002000 


0MI5 


OCT 


002000 


JMP 


6728 13734 


016000 


0MI6 


OCT 


016000 


SUB 


6729 13735 


004000 


0MI7 


OCT 


004000 


LDA 


6730 13736 


010000 


0HI8 


OCT 


010000 


STA 


6731 13737 


006000 


0HI9 


OCT 


066000 


ANA 


6732 13740 


102000 


OMJl 


OCT 


102000 


JMP» 


6733 13741 


101040 


0MJ2 


OCT 


101040 


SNZ 


6734 13742 


101400 


0MJ3 


OCT 


101400 


SMI 


6735 13743 


0415 60 


0MJ4 


ALS 


16 




6736 13744 


040461 


0MJ5 


OCT 


040461 


LGR 15 


6737 13745 


141216 


0MJ6 


OCT 


141216 


ACA 


6738 13746 


140407 


0MJ7 


OCT 


140407 


TCA 


6739 13747 


140401 


OMKl 


OCT 


140401 


CMA 


6740 13750 


101001 


0MK2 


OCT 


101001 


SSC 


6741 13751 


141206 


0HK3 


OCT 


141206 


AOA 


6742 13752 


140500 


0MK4 


OCT 


140500 


. SSM 


6743 13753 


042000 


QHK5 


OCT 


042000 


JMP 0,1 


6744 13754 


000000 


0MK6 


OCT 


odoooo 


DAG •• 


6745 13755 


0415 77 




ALS 


1 


ALSl 


6746 13756 


140407 




TCA 




TCA 


6747 13757 


176000 


0MK7 


OCT 


176000 


STG 


6748 13760 


11 00000 


0MK9 


CAS 


■ 


CAS 


6749 13761 


-0 04 00000 




STA» 







6750 13762 


-0 07 00000 




SUB* 







6751 13763 


•0 000000 




DAC« 


• • 




6752 13764 


131001 




OCT 


131001 




6753 13765 


030000 




OCT 


030000 


SuBR 


6754 13766 


-0 11 00000 




CAS» 








6718 

6719 

6720 

6721 

6722 

6723 

6724 

6725 

6726 

6727 

6728 

6729 

6730 

6731 

6732 

6733 

6734 

6735 

6736 

6737 

6738 

6739 

6740 

6741 

6742 

6743 

6744 

6745 

6746 

6747 

6748 

6749 

6750 

6751 

6752 

6753 

6754 
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6755 


13767 


OOOOOU 


0MK8 


OCT 





6756 


13770 


02 00717 


OMLl 


LDA 


KlOl 


6757 


13771 


04 00631 




STA 


AT 


6758 


13772 


01 12710 




JMP 


OTIO 


6759 












6760 












6761 










•OUTPUT REL* 


6762 












6763 










ALSO DRIVES SYM 


6764 


13773 


000000 


OROO 


DAC 


• • 


6765 


13774 


04 00647 




STA 


FTOP 


6766 


13775 


02 00720 




LDA 


K102 


6767 


13776 


04 00640 




STA 


DF 


6768 


13777 


04 00632 


ORIO 


STA 


CODE 


6769 


14000 


02 00060 




LDA 


RPL 


6770 


14001 


140100 




SSP 




6771 


14002 


10 14150 




JST 


OR60 


6772 


14003 


014702 




DAC 


PR I 


6773 


14004 


02 00640 


0R12 


LDA 


D^ 


6774 


14005 


100040 




SZ5 




6775 


14006 


01 14031 




JMP 


OR20 


6776 


14007 


02 14027 




LDA 


0R18 


6777 


14010 


04 14707 




STA 


PRI*5 


6778 


14011 


02 14030 




LDA 


0R19 


6779 


14012 


04 14710 




STA 


PRI*6 


6780 


14013 


02 00647 




LDA 


FTOP 


6781 


14014 


10 14150 


0R13 


JST 


OR80 


6782 


14015 


014712 




DAC 


PRI*8 


6783 


14016 


02 00060 


0R15 


LDA 


RPL 


6784 


14017 


101400 




SMI 




6785 


14020 


10 14365 




JST 


owoo 


6786 


14021 


100010 




SR2 




6787 


14022 


01 14025 




JMP 


#♦3 


6788 


14023 


10 00000 




CALL 


F4$SYM 


6789 


14024 


014702 




DAC 


PRI 


6790 


14025 


10 14^01 




JbT 


pkSP 


6791 


14026 


-0 01 13773 




JMP* 


OHQO 



{///) 



DF ■ NON ZEWO 
CODE « 2 

LIST RPL 



IF DF NOT ZERO 

GO TO OR20 
»»147703 

SET 'QCT' INTO PRINT IMAGE 

IF RPL PLUS 

OUTPUT WORD 

SURPR6SS SYMbOLlC OUTPUT 
LIST LINE 

SET PKInT duFKtR TO S^ACta 
NtTUR'^: 



6755 
6756 
6757 
6758 
6759 
6760 
6761 
6762 
6763 
6764 
6765 
6766 
6767 
6768 
6769 
6770 
6771 
6772 
6773 
6774 
6775 
6776 
6777 
6778 
6779 
678Q 
6781 
6782 
6783 
6784 
6785 
6786 
6787 
6788 
6789 
679U 
6791 
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6792 14027 


147703 ORIS 


OCT 


147703 


6793 14030 


152240 0R19 


OCT 


152240 


6794 14031 


10 


03007 0R20 


JST 


SAV 


6795 14032 


02 


14176 


UDA 


0R90 


6796 14033 


140407 


TCA 




6797 14034 


04 


00000 


STA 


XR 


6798 14035 


02 


00647 


LDA 


FTOP 


6799 14036 


140100 


SSP 




6800 14037 


100040 


SZE 




6801 14040 


01 


14050 


JHP 


0R24 


6802 14041 


02 


00631 


LDA 


AT 


6803 14042 


11 


00721 


CAS 


K103 


6804 14043 


07 


00724 


SUB 


Ki06 


6805 14044 


06 


00720 


ADD 


K102 


6806 14045 


140401 


CMA 




6807 14046 


03 


00725 


ANA 


K107 


6808 14047 


04 


00632 


STA 


CODE 


6809 14050 


02 


00647 0R24 


LDA 


FTOP 


6810 14051 


1 11 


13767 


CAS 


0R91«NINS»1 


6811 14052 


01 


14054 


JMP 


#♦2 


6312 14053 


01 


14056 


JMP 


• ♦3 


6813 14054 


12 


00000 


IRS 


XR 


6814 14055 


01 


14051 


JMP 


#-4 


6815 14056 


1 02 


14237 


LDA 


0R92*NINS,1 


6816 14057 


04 


14707 


STA 


PRI*5 


6817 14060 


1 02 


14300 


LDA 


0R93*NINS»1 


6818 14061 


04 


14710 


STA 


PRI*6 


6819 14062 


10 


03016 


JST 


RST 


6820 14063 


02 


00040 


LDA 


A 


6821 14064 


100040 


SZE 




6822 14065 


01 


14071 


JMP 


OR30 


6823 14066 


02 


00630 


LDA 


AF 


6824 14067 


03 


00730 


ANA 


Kill 


6825 14070 


01 


14014 


JMP 


0R13 


6826 14071 


10 


02672 OR30 


1 JST 


STXA 


6827 14072 


1 02 


15400 


LDA 


DP,1 


6828 14073 


101400 


SHI 





(0){C) 
(T)CSP) 

SEARCH OP-CODE LIST 

PUT BCI IN PRINT IMAGE 



MASK OUT HIQH BITS OF ADDNtSS 



6792 

6793 

6794 

6^95 

6796 

6797 

6798 

6799 

6800 

6801 

6802 

6803 

6804 

6805 

6806 

6807 

6808 

6809 

6810 

6811 

6812 

6813 

6814 

6815 

6816 

6817 

6818 

6819 

6820 

6821 

6822 

6823 

6824 

6825 

6626 

6827 

6828 
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6829 


14074 


01 14114 


JMP 


OR40 


6830 


14075 


02 14363 


LDA 


K149 


6831 


14076 


04 14712 


STA 


PRI+8 


6832 


14077 


1 02 15400 


LDA 


DP.l 


6633 


14100 


0414 74 


UQt 


4 


6834 


14101 


100400 


SPU 




6835 


14102 


01 14106 


JMP 


• ♦4 


6836 


14103 


0414 76 


LQL 


2 


6837 


14104 


100400 


SPL 




6838 


14105 


01 14110 


JMP 


#♦3 


6839 


14106 


1 02 15402 


LDA 


DP*2,1 


6840 


14107 


Ql 14111 


JMP 


♦ ♦2 


6841 


14110 


1 02 15404 


LDA 


DP*4,1 


6842 


14111 


10 14150 


JST 


OR60 


6843 


14112 


014713 


DAC 


PRI*9 


6844 


14113 


01 14016 


JMP 


0R15 


6845 


14114 


1 02 15404 


0R40 LDA 


DP*4,1 


6846 


14115 


0416 77 


ALR 


1 


6847 


14116 


140500 


SSM 




6848 


14117 


0406 77 


ARR 


1 


6849 


14120 


140500 


SSM 




6850 


14121 


04 14712 


STA 


PRI*8 


6851 


14122 


1 02 15403 


LDA 


DP*3,1 


6852 


14123 


04 14713 


STA 


PRI*9 


6853 


14124 


1 02 15402 


LDA 


DP*2.1 


6854 


14125 


04 14714 


STA 


PRI*10 


6855 


14126 


01 14016 


JMP 


0R15 


6856 






• 




6857 






« 


•OUTPUT A8S» 


6858 






« 




6859 


14127 


000000 


OAOO DAC 


• • 


6860 


14130 


04 00647 


STA 


FTOP 


6861 


14131 


02 14127 


LDA 


OAOO 


6862 


14132 


04 13773 


STA 


OROO 


6863 


14133 


140040 


CRA 




6864 


14134 


01 13777 


JMP 


ORiO 


6865 






* 





SET =' INTO LISTING 
CHECK IM (A) 

SKIP IF i^OT COMPLEX 



SKIP IK INTEGER OR LOGICAL 



LIST EXPONENT AND PART OF FRACTION 
LIST INTEGER VALUE 
CONVERT OCTAL 



CONVERT AND PACK INTO 
SYMBOLIC IMAGE 



6d2^ 

6330 

6H3i 

6832 

6833 

6834 

6835 

6836 

6837 

6838 

6839 

6840 

6S41 

6642 

6643 

6644 

6845 

6646 

6847 

6848 

6849 

6850 

6851 

6852 

6653 

6654 

6855 

6856 

6857 

6656 

6859 

6860 

6861 

6862 

6663 

6864 

686!? 
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6866 
6867 






# 
• 




• 
• 


6868 


14135 


OOOOOQ 


osoo 


OAC 


00 


6869 


14136 


04 00630 




STA 


AF 


6870 


14137 


02 13757 




LDA 


0MK7 


6871 


14140 


04 00647 




STA 


FTOP 


6872 


14141 


02 14135 




UDA 


OSOO 


6873 


14142 


04 13773 




STA 


ORdO 


6874 


14143 


02 00722 




IDA 


K104 


6875 


14144 


04 00^32 




STA 


CODE 


6876 


14145 


04 14461 




STA 


STFL 


6877 


14146 


10 14301 




JST 


PRSP 


6878 


14147 


01 14031 




JMP 


OR20 


6879 


14150 


000000 


OR80 


DAC 


• • 


6880 


14151 


000201 




lAB 




6881 


14152 


-0 02 14150 




LDA» 


0R80 


6882 


14153 


04 14175 




STA 


0R89 


6883 


14154 


140040 




CRA 




6884 


14155 


0402 76 




LRR 


2 


6885 


14156 


12 14150 




IRS 


OR80 


6886 


14157 


10 14163 




JST 


0R85 


6887 


14160 


10 14163 




JST 


0R85 


6888 


14161 


10 14163 




JST 


0R85 


6889 


14162 


-0 01 14150 




JMP» 


OR80 


6890 


14163 


OOOQOO 


0R85 


DAC 


«* 


6891 


14164 


U6 14364 




ADD 


K140 


6892 


14165 


0412 75 




LLR 


3 


6893 


14166 


0414 73 




LGL 


5 


6894 


14167 


06 14364 




ADD 


K140 


6895 


14170 


0410 75 




LLL 


3 


6896 


14171 


-0 04 14175 




STA# 


0R89 


6897 


14172 


12 14175 




IRS 


0R89 


6898 


14173 


140040 




CRA 




6899 


14174 


-0 01 14163 




JMP* 


0R85 


6900 


14175 


00 00000 


0R89 


PZE 





6901 


14176 


000040 


OR90 


DAC 


NINS 


6902 




013735 


K200 


EQU 


0HI7 



•OUTPUT STRING-HPL* 



SET RfeTURN INTO OUTPUT R6L 



STRINU FLAG « NON ZERO 

SET PRINT 8UF. TO SPACES 

JMP-OUTPUT REL FOR SYMBOLIC ANU BINARY 



6866 
6867 
6868 
6869 
6870 
6871 
6872 
6873 
6874 
6875 
6876 
6877 
6878 
6879 
6880 
6881 
6882 
6883 
6884 
6885 
6886 
6887 
6888 
6889 
6890 
6891 
6892 
6893 
6894 
6895 
6896 
6897 
6898 
6899 
690U 
6901 
6902 
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6903 


013733 


K201 


EQU 


0MI5 


6904 


013736 


K202 


EQU 


0MI8 


6905 


013732 


K20i 


EQU 


0MI4 


6906 


013734 


K204 


EQU 


0MI6 


6907 


013742 


K205 


EQU 


0MJ3 


6908 


013740 


K206 


EQU 


OMJl 


69U9 


013753 


K207 


EQU 


0MK5 


6910 


013727 


0H91 


EQU 


OMU 


6911 14177 


140704 


0R92 


BCI 


22*AI 


14200 


145323 








14201 


146304 








14202 


140704 








14203 


145515 








14204 


151725 








14205 


146304 








14206 


151724 








14207 


140716 








14210 


145315 








14211 


151716 








14212 


151715 








14213 


146314 








14214 


146322 








14215 


140703 








14216 


152303 








14217 


141713 








14220 


151723 








14221 


140717 








14222 


151723 








14223 


145315 








14224 


142301 








6912 14225 


140714 




BCI 


2, ALT 


14226 


152303 








6913 14227 


151724 




BCI 


9,STC 


14230 


141701 








14231 


151724 








14232 


151725 









22,ADJSLDADJMSULDSTANJMS!N<SMlLLRACTCCMSSA0SSJMDA 



6903 
6904 
6905 
6906 
6907 
6908 
6909 
6910 
6911 



6912 
6913 



14233 142301 
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14234 


142722 


14235 


151725 


14236 


141701 


14237 


127657 


6914 14240 


142252 


1^241 


152240 


14242 


140652 


14243 


142240 


14244 


150240 


14245 


141240 


14246 


140640 


14247 


140640 


14250 


140640 


14251 


150252 


14252 


155240 


14253 


144640 


14254 


130665 


14255 


130665 


14256 


140640 


14257 


140640 


14260 


14064Q 


14261 


141640 


14262 


140640 


14263 


146640 


14264 


150330 


14265 


141640 


6915 14266 


151661 


14267 


140640 


6916 14270 


143640 


14271 


151640 


14272 


140652 


14273 


141252 


14274 


141652 


14275 


151297 


14276 


141322 


14277 


151692 


14300 


127640 



0R93 BCI 22.D*T A.D P B A A A P*Z I i515A A A C A H PXC 



6914 



BCZ 2,S1A 

BCI 9,G S A*B*C»R/BRS»/ 



6915 
6916 
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6917 
6918 

6919 14301 

6920 14302 

6921 14303 

6922 14304 

6923 14305 

6924 14306 

6925 14307 

6926 14310 

6927 14311 
6928 

6929 
6930 
6931 
6932 
6933 

6934 14312 

6935 14313 

6936 14314 

6937 14315 

6938 14316 

6939 14317 

6940 14320 

6941 14321 

6942 14322 

6943 14323 

6944 14324 

6945 14325 

6946 14326 

6947 14327 

6948 14330 

6949 14331 

6950 14332 

6951 14333 
69!5if 14554 
6953 14335 



000040 



000000 

02 14311 
00000 
01154 
14752 
00000 
14305 
14301 



NINS 
PRSP 



EQU 32 



04 
02 
04 
12 
01 
01 



177730 



OOOOOQ 
04 14362 
10 14523 
10 02672 
02 14362 

0400 62 

04 14362 

02 14361 

0410 72 

04 14632 

0400 70 

10 02672 

1 02 15404 
03 00730 
11 14331 
020240 

05 00740 
05 00760 
40 2 70 
04 14633 



PRSK 



DAC 

LDA 

STA 

LDA 

STA 

IRS 

JMP 

JMP» 

OCT 



ONOO DAC 
STA 
JST 
JST 
UDA 
LRL 
STA 
LDA 
LLL 
STA 
LRL 
JST 
LDA 
ANA 
CAS 
OCT 
ERA 
ERA 

LKK 
STA 



• • 

PRSK 


KASP 

PRI*40,1 


• -2 
PRSP 
177730 



SUB^^ TO SET PRINT BUF, TO SPACES 
S-4U 

(SP) (SP) 



£XIT 

a«40 



•OUTPUT SUBROUTINE/COMMON BLOCK NAME* 
OUTPUT AN EXTERNAL REFERENCE NAME. 



• # 

ONTl 

FSOO 

STXA 

ONTl 

14 

ONTl 

ON02 

6 

OCI 

6 

STXA 

DP*4,1 

Kill 

•♦i 

020240 

K122 

HBIT 

S 
OCI+1 



SAVb ADDRESS 

FLUSH BUFFER IF NECESSARY 

SET iNDEXsA 

SUBN. ENTRY ADDR, 

SAVE S/C BITS 

3»60U (»BL0CK CODE NO,) 

FILL BUFFER 

SET 1NUEX«A 

FIRST 2 CHAR, OF NAME 

5'037777 



s' I4u000 



6917 
6918 
5919 
6920 
6921 
6922 
6923 
6924 
6925 
6926 
6927 
6926 
6929 
6930 
6931 
6932 
6933 
6934 
6935 
6936 
6937 
6938 
6939 
6940 
6941 
6942 
6943 
6944 
6945 
6946 
6947 
6948 
6949 
6950 
6951 
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6954 

6955 

6956 

6957 

6958 

6959 

6960 

6961 

6962 

6963 

6964 

6965 

6966 

6967 

6968 

6969 

6970 

6971 

6972 

6973 

6974 

6975 

6976 

6977 

6978 

6979 

6980 

6981 

6982 

6983 

6984 

6985 

6986 

6987 

6988 

6989 

6990 



14936 

14337 

14340 

14341 

14342 

14343 

14344 

14345 

14346 

14347 

14350 

14351 

14352 

14353 

14354 

14355 

14356 

14357 

14360 

14361 

14362 

14363 
14364 

14365 

14366 
14367 
14370 
14371 
14372 
14373 
14374 
14375 
14376 
14377 
14400 



0400 70 
1 02 15403 
0402 70 

04 14634 
0400 70 

1 02 15402 
0402 70" 

04 14635 
0410 70 
0414 76 
06 14362 
0414 72 
04 14636 
140040 
04 14637 
02 00746 
04 00602 
10 14523 
•0 01 14312 
000600 
000000 

136647 

000026 



000000 
10 03007 
02 00060 
07 14464 
100400 
140407 
11 00717 
10 14523 
101000 
02 00602 
06 00721 
11 14522 



ON02 

ONTl 

• 

K149 
K140 

owoo 



LRU 

UDA 

LRR 

STA 

LRL 

LOA 

LRR 

STA 

LLL 

LGL 

ADD 

LQL 

STA 

CRA 

STA 

LOA 

STA 

JST 

JMP» 

OCT 

OCT 

BCI 
OCT 

OAC 
JST 
LDA 
SUB 
SPL 
TCA 
CAS 
JST 
NOP 
LDA 
ADD 
CAS 



8 

DP*3,1 

8 

0CI*2 

8 

DP*2,1 

8 

0CI*3 

6 

2 

ONTl 

6 

0CI*4 

0CI*5 

K128 

OCNT 

FSOO 

ONOO 

600 



• • 

SAV 
RPL 
ORPL 



KlOl 
FSOO 

OCNT 
K103 
K146 



SECOND 2 CHAR. OF NAME 

BUFFEH 

LAST 2 CHAR, OF NAME 

SUFFER 

S/C BITS 

BUFFER 

SET SIZE « 

BUFFER 

SET BUOCK SIZE (DOUBLED) 

FLUSH BUFFER 

EXIT 

BLOCK CODE NUMBER (6) 

TEMP STORE 



FLUSH BUFFER IF DIFFERENCE IN KPL'S NQl 1 



6954 

6955 

6956 

6957 

6958 

6959 

6960 

6961 

6962 

6963 

6964 

6965 

6966 

6967 

6968 

6969 

6970 

6971 

69^2 

6973 

6974 

6975 

6976 

6977 

6976 

6979 

6980 

6981 

6982 

6963 

6984 

6985 

6986 

6987 

6988 

6969 

6990 
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699i 


14401 


101000 


NOP 




6992 


14402 


10 14523 


JST 


FSOO 


6993 


14403 


02 00602 


LDA 


OCNT 


6994 


14404 


06 00721 


ADD 


K103 


6995 


14405 


04 00602 


STA 


OCNT 


6996 


14406 


07 00721 


SUB 


K103 


6997 


14407 


0406 77 


ARR 


1 


6998 


14410 


04 00000 


STA 


XR 


6999 


14411 


101400 


SMI 




7000 


14412 


01 14462 


JMP 


OW20 


7001 


14413 


10 14465 


JST 


PUOO 


7002 


14414 


0400 70 


LRL 


8 


7003 


14415 


1 13 14632 


IMA 


OCi,l 


7004 


14416 


03 00733 


ANA 


K116 


7005 


14417 


1 05 14632 


ERA 


OCM 


7006 


14420 


1 04 14632 


QWIO STA 


0CI,1 


7007 


14421 


0002Q1 


lAB 




7006 


14422 


1 04 14633 


STA 


0CI*1.1 


7009 


14423 


02 14722 


LDA 


PRI*16 


7010 


14424 


000201 


lAB 




7011 


14425 


02 14720 


LDA 


PRI*14 


7012 


14426 


0410 67 


LLL 


9 


7013 


14427 


0404 77 


L6R 


1 


7014 


14430 


0410 75 


LLL 


3 


7015 


14431 


10 14150 


JST 


OR60 


7016 


14432 


014722 


DAC 


PRI+16 


7017 


14433 


02 14720 


LDA 


PRI*14 


7013 


14434 


0400 72 


LRL 


6 


7019 


14435 


0414 77 


LGL 


1 


7020 


14436 


0410 73 


LLL 


5 


7021 


14437 


10 14150 


JST 


0R80 


7022 


14440 


014720 


DAC 


PRI*14 


7023 


14441 


02 01154 


LDA 


KASP 


7024 


14442 


100020 


SRI 




7025 


14443 


01 14450 


JMP 


0kl4 


7026 


14444 


04 14721 


STA 


Da T Ai ^ 


7027 


14445 


04 U7i2 


STA 


PRI*16 



FLUSH BUFFER 

OCNT » 0CNT*3 

OCI (OUTPUT CARD IMAGE) 

LEFT OR RIGHT POS, 

IF BUFFER FULL 
CALL FLUSH (FSCO) 



USE LOW BIT OF PRI*14 DATA 

STRIP OFF HIGH BIT OF BLOCK CODE TYPE NO, 
SET DIGITS In PRI*17, PRI*19 



SHIFT ADDR, TO RIGHT BY 1 BIT 
SET UIialTS IN PRI*15, PRI*16 
{$?) (SP) 

r\\i L. -i .J a f r z niMAnw '■\ita tkj 

P'^IVT BUFFER ^ITH SPACES 



6991 
6992 
6V93 
6994 
6995 
0996 
6997 
6998 
6999 
7000 
7001 
7002 
7003 
7004 
7005 
7006 
7007 
7008 
7009 
7010 
7011 
7012 
7013 
7014 
7015 
7016 
7017 
7018 
7019 
7020 
7021 
7022 
7023 
7024 
7025 

Tfn '1 i 
' W CO 

7027 
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7028 

7029 

7030 

7031 

7032 

7033 

7034 

7035 

7036 

7037 

7038 

7039 

7040 

7041 

7042 

7043 

7044 

7045 

7046 

7047 

7048 

7049 

7050 

7051 

7052 

7&53 

7054 

7055 

7056 

7057 

7058 

7059 

7060 

7061 

7062 

7063 

7064 



14446 

14447 

14450 

14451 

14452 

144^3 

14454 

14455 

14456 

14457 

14460 

14461 

14462 

14463 

14464 

14465 

14466 

14467 

14470 

14471 

14472 

14473 

14474 

14475 

14476 

14477 

14500 

14501 

14502 

14503 

14504 

14505 

14506 

14507 

14510 

14511 

14512 



04 14723 




STA 


PRI417 


04 14724 




STA 


PRI*i8 


04 14720 


0W14 


STA 


PRI*14 


10 03016 




JST 


RSf 


02 00060 




LOA 


RPL 


04 14464 




STA 


ORPL 


140040 




CRA 




13 14461 




IHA 


STFL 


101040 




SNZ 




12 00060 




IRS 


RPL 


•0 01 14365 




JMP# 


OWOO 


00 00000 


STFU 


PZE 





10 14465 


0W20 


JST 


PUOO 


01 14420 




JMP 


OWIO 


00 oodoo 


ORPL 


P2E 





000000 


PUOO 


OAC 


•« 


02 00632 




LDA 


CODE 


11 00722 




CAS 


K104 


101000 




NOP 




01 14504 




JMP 


PUIO 


100040 




SZE 




01 14504 




JMP 


PUIO 


0400 70 




LRU 


8 


02 00647 




LOA 


FTOP 


0400 74 


PU08 


LRU 


4 


04 14720 




STA 


PRI*14 


000201 




lAB 




04 14722 




STA 


PRI*16 


0402 64 




LRR 


12 


•0 01 14465 




JMP# 


PUOO 


0400 74 


PUIO 


URL 


4 


02 00630 




LDA 


AF 


0400 74 




LRL 


4 


05 00647 




ERA 


FTOP 


01 14476 




JMP 


PU06 


0400 74 1 


PUZO 


LRL 


4 


02 00630 




LDA 


AF 



IF NO BINARY LISTING IS WANTED 



ORPL»RPL 

INDICATE WORD WAS KEY TO LOADER 
THEN LEAVE RPL ALONE 
RPL » RPL*1 



COMBINE CODES TO 
«4 



SKIP IF ABS 
JUMP IF REL. 



SAVE FOR LISTING 



RESTORE POSITION 



7028 

7029 

7030 

7031 

7032 

7033 

7034 

7035 

7036 

7037 

7038 

7039 

7040 

7041 

7042 

7043 

7044 

7045 

7046 

7047 

7048 

7049 

7050 

7051 

7052 

7053 

7054 

7055 

7056 

7057 

7058 

7059 

7060 

7061 

7062 

7063 

7064 
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7065 14513 03 00730 

7066 14514 0400 74 

7067 14515 13 00630 

7068 14516 03 14521 

7069 14517 05 00630 

7070 14520 01 14476 

7071 14521 014000 

7072 14522 000117 
7073 

7074 
7075 
7076 
7077 

7078 14523 000000 

7079 14524 02 006Q2 

7080 14525 10 03007 

7081 14526 07 00722 

7082 14527 100400 

7083 14530 01 14603 

7084 14531 06 00723 

7085 14532 0405 77 

7086 14533 140407 

7087 14534 04 00602 

7088 14535 07 00717 

7089 14536 04 00601 

7090 14537 02 14632 

7091 14540 0400 64 

7092 14541 11 00720 

7093 14542 01 14544 

7094 14543 01 14615 
7095 

7096 
7097 
7098 
7099 

f* iin 4 ACAA 4 n<i no n 

7101 14545 01 14570 



ANA 
LRL 
IMA 
ANA 
ERA 
JMP 
K114 OCT 
K146 OCT 

FSOO DAC 
LDA 
JST 
SUB 
SPL 
JMP 
ADD 
ARS 
TCA 
STA 
SUB 
STA 
LDA 
LRL 
CAS 
JMP 
JMP 



JMP 



Kill 

4 

AF 

K114 

AF 

PU06 

14000 

117 



•FLUSH SUBROUTINE* 



• • 

OCNT 

SAV 

K104 

FS20 
K105 
1 

OCNT 

KlOl 

PCNT 

OCI 

12 

K102 

• ♦2 
FS30 

EVERY TIME 
3 WORDS OF 
ALONG WITH 
TO INHIBIT 
FSll WITH 

FSll 



BUFFER OCCUPANCY SIZE 
SAVE INDEX REGESTER 
CHECK FOR OCNT ,GT, 4 



SKIP OUTPUT IF 
ADD 1/2 AT B14 
DIVIDE BY 2 



BUFFER IS EMPTY 



OCNT s -WORDS/BUFFER 

■ 1 

BUFFEH SIZE INCLUDING CHECKSUM 

FIRST WORD IN SUFFER 



82 



BLOCK TYPE « 2 (RELOCATABLE CODE) 
A BLOCK OF OBJECT OUTPUT IS DUMPED, THE FIRST 
THE BLOCK IS INSERTED IN THE SYMBOLIC OUTPUT 
AN EOB OPERATOR CODE IF SENSE SWITCH I IS DOWN, 
THIS LINE, REPLACE FHQM FSIO TO AND INCLUDING 
(FSIO CRA ), 

HO Hl-.Ar^Y LISTING UiLESS SSwi IS DO^N 



7 065 
7066 
7067 
7068 
7069 
7070 
7071 
7072 
7073 
7074 
7075 
7076 
7077 
7078 
7079 
7080 
7081 
7082 
7083 
7084 
7085 
7086 
7087 
7088 
7089 
7090 
7091 
7092 
7093 
7094 
7095 
7096 
7097 
7098 
7099 
71 nn 

7101 
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7102 

7103 

7104 

7105 

71Q6 

7107 

7108 

7109 

7110 

7111 

7112 

7113 

7114 

7115 

7116 

7117 

7118 

7119 

7120 

7121 

7122 

7123 

7124 

7125 

7126 

7127 

7128 

7129 

7130 

7131 

7132 

7133 

7134 

7135 

7136 

7137 

7138 



14546 

14547 

14550 

14551 

14552 

14553 

14554 

14555 

14556 

14557 

14560 

14561 

14562 

14563 

14564 

14565 

14566 

14567 

14570 

14571 

14572 

14573 

14574 

14575 

14576 

X457f 

14600 

14601 

14602 

14603 

14604 

14605 

14606 

14607 

14610 

14611 

14612 



10 00000 
014702 
02 14626 
04 14707 
02 14627 
04 14710 
02 14632 
10 14150 
014712 
02 14633 
10 14150 
014716 
02 14634 
10 14150 
014722 
10 00000 
014702 
10 14301 
140040 FSll 

04 00000 

1 05 14632 FS12 

12 ooboo 

12 00602 

01 14572 

1 04 14632 
02 00601 
13 00000 
06 14625 
10 00000 

02 00060 FS20 

0400 70 

06 14630 

04 14632 

000201 

04 14633 

02 00721 

04 00602 



CALL 


F4SSYM 


OAC 


PRI 


LDA 


FS41 


STA 


PRl*5 


LDA 


FS41*1 


STA 


PRI*6 


LDA 


OCI 


JST 


OR80 


DAC 


PRU8 


LDA 


0CI*1 


JST 


OR60 


DAC 


PRI*12 


LDA 


QCU2 


JST 


OR80 


DAC 


PRI*16 


CALL 


F4SSYM 


DAC 


PRI 


JST 


PRSP 


CRA 




STA 





ERA 


0CI,1 


IRS 





IRS 


OCNT 


JMP 


FS12 


STA 


OCM 


LDA 


PCNT 


IHA 





ADD 


FS40 


CALL 


r4IOUT 


LDA 


RPL 


LRL 


8 


ADD 


K145 


STA 


OCI 


lAB 




STA 


0CI*1 


LDA 


K103 


STA 


OCNT 



OUTPUT WHATEVER MIGHT BE IN SYMBOLIC 8UF. 

»{E)(Q) 

ENTER »E08» INTO LISTING 

«(B)(SP) 



ENTER FIRST WORD FROM BUFFER INTO LISTING 



ENTER WORD 2 FROM BUFFER INTO LISTI 



NG 



ENTER WORD 3 FROM BUFFER INTO LISTING 

OUTPUT SYMBOLIC BUFFER 

RESET SYMBOLIC BUFFER TO SPACES 

COMPUTE CHECKSUM 
MERGE BUFFER WORD INTO CHECKSUM 
INCREMENT BUFFER POSITION ' 
DECREMENT BUFFER SIZE 

SET CHECKSUM INTO BUFFER 
» NO, OF WORDS IN BUFFER 

* 0CI*1,1 

PUNCH BUFFER 

SET UP BUFFER FOR NEXT OUTPUT 

»'2000 (BLOCK CODE 2) 

SET FIRST 2 WORDS OF BUFFER 
"0 

WESET BUFFER OCCUPANCY SUE 



7102 

7103 

7104 

7105 

7106 

7107 

7108 

7109 

7110 

7111 

7112 

7113 

7114 

7115 

7116 

7117 

7118 

7119 

7120 

7121 

7122 

7123 

7124 

7125 

7126 

7127 

7128 

7129 

7130 

7131 

7132 

7133 

7134 

7135 

7136 

7137 

7138 



HONEYWELL 



COMPUTER CONTROL DIVISION 



PROGRAM DOCUMENTATION 



* CiilO-001-6601 (FRTN) 



vJC iMO.1804bi0uu 



RbV. D 



PAGE 20 u 



7139 14613 


10 03016 




JST 


RST 


7140 14614 


-0 01 14523 




JMP» 


FSOO 


7141 




• 






7142 14615 


0414 72 


FS30 


LGL 


6 


7143 14616 


07 00602 




SUB 


OCNT 


7144 14617 


06 00717 




ADD 


KlOl 


7145 14620 


0412 72 




LLR 


6 


7146 14621 


0404 72 




LGR 


6 


7147 14622 


0410 72 




LLL 


6 


7148 14623 


04 14632 




STA 


OCI 


7149 14624 


01 14544 




JMP 


FSIO 


7150 




• 






7151 14625 


1 014633 


FS40 


DAC 


0CI*1,1 


7152 14626 


142717 


FS41 


BCI 


2*E0B 


14627 


141240 








7153 14630 


020000 


K145 


OCT 


20000 


7154 14631 


060000 


C499 


OCT 


060000 


7155 




• 






7156 14632 




OCl 


BSS 


40 


7157 14702 




PRI 


ess 


40 


7158 14752 


120240 




BCI 


20* 


14753 


120240 








14754 


120240 








14755 


120240 








14756 


120240 








14757 


120240 








14760 


120240 








14761 


120240 








14762 


120240 








14763 


12024Q 








14764 


120240 








14765 


120240 








14766 


120240 








14767 


120240 








14770 


120240 








14771 


120240 








14772 


12Q24U 









RESET INDEX REGISTER 
EXIT 

MERUfc BUFFER SIZE INTO BLOCK HEADEH 

BUFFER SIZE 

al (ACCOUNT FOR CHECKSUM) 



BRING IN UPPER HALF OF ADDRESSES 
STORE INTO BUFFER 
COMPUTE CHECKSUM 



»EOB' 

BLOCK TYPE 2 CODE 

40 WORD CARD IMAGE INPUT BUFFER 
40 WORU PRINT BUFFER 



714V 
714U 
7141 
7142 
7143 
7144 
7145 
7146 
7147 
714b 
7149 
7150 
7151 
7152 

7153 
7154 
7155 
7156 
7157 
7158 



HONEYWELL COMPUTER CONTROL DIVISION 



PROGRAM DOCUMENTATION 



• C210-001-6601 <FRTN) 



3C N0.1804630iJO 



RfcV, D 



PAc 



201 





14773 


120240 






14774 


120240 






14775 


120240 




7i59 


14776 






7160 






• 


7161 






• 


7162 






• 


7163 






« 


7164 






« 


7165 


15034 


100000 





ess 30 



COMPlLfcR PATCH AREA 



•lOS (AND lOL) GO HER£* 



END 

NO ERRORS IN ABOVE ASSEMBtY. 
DAP-16 REV, E 09-10-6 



AO 



7159 
7160 
7161 
^i62 
7i63 
7164 
7165 



